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News and Reviews 


Mike Dunn, Co-editor 
AtariWriter (Atari RX8036, under $100) 


Several months ago, | was told by Gary Furr of Atari they had assembled a team 
to write a new word-processor combining the best features of all the current ones, 
be easy to use and well documented, and be on a ROM. The new AtariWriter, 
which | am using to write this article, is the result. It is easily the best piece of 
non-game software from Atari, and, with its low price, will be hard to beat. 

Besides being on a ROM, it will support cassette as well as disk systems. It 
comes configured to use any of the Atari printers, and APX will sell printer drivers 
for popular printers when released in the spring. 

You plug in the ROM, up comes the Atari logo, then the menu. You select from 
the following options: Create File, Delete File, Edit file, Format Disk, Index of disk 
files, Load File, Print File, or Save File. Starting a file, we choose Create, and the 
screen is shown. On top are the various format dispays for printing, and on the 
bottom are arrows showing the tab locations, as well as the line number and col- 
umn number. 

You can delete, move or repeat blocks of text, search and replace any string up 
to 25 charactors, both individually or globally. Centering, block text right, headers, 
footers, page numbering, and all the usual functions of a word processor are pre- 
sent, as well as some extra ones not always seen. You can go to the beginning or 
end of a line, use any printer control in the text by its CHR$ number, and do dou- 
ble column printing. You can even restore your last deleted text! Editing is done 
with an insert mode only, so you have to delete your old text- you can not write 
over it. Merging and chaining files can be done. 

After you have finished, you can preview the text on the screen using your 40 
col screen as a window to see a line up to 132 charactors wide. If you have 
specified it to be right justified, it will also be so on the screen. 

Other features include the ability to edit any DOS file, and communications 
ability allowing owners of the AtariWriter to communicate with a Modem by using 
“R:” as the device name. 

The program has excellent error trapping and prompting, making it almost im- 
possible to lose files. The speed of accepting characters when editing, print for- 
mating, etc., is very impressive — it always keeps up with me, something previous 
word-processors have not always done. 

The AtariWriter is an excellent product indeed, and very fairly priced. Since they 
were limited to a 16K ROM, they could not include everything. There are a few 
things ! would like to have seen, but they are minor for most people. Having only 
an insert mode for editing and no type over mode means you have to erase 
everything to edit it. To be able to write your own printer drivers instead of having 
to get them from APX would be nice, but for most applications the ability to use 
printer control codes allows one to use most printers anyway. 

A very fine product —look for it in April, with the printer drivers available at the 
same time. 

—Mike Dunn 


Inhome Keyboard 


(Inhome software, 2485 Dunwin Dr., Mississauga, Ontario, Canada L5L 1T1, $120). 

There are now a host of keyboards for the Atari 400. Because | wanted one 
which fits into the 400 rather than an outboard one, | bought the above. It is a full 
stroke keyboard which simply replaces the membrene keyboard on the 400. Very 
easy to install, and an improvement over the old one. Now the bad news — 
because it had to fit into the same space as the old one, there are some problems. 
The Return key is so far away | can't reach it. The shift key is frequently mixed up 
with the control key, and the backspace key is on the bottom of the keyboard — 
all of which makes it easy to mix up things. My main complaint, however, is the 
keyboard itself is very "tinny" and many of the keys stick. The picture in the adver- 
tisment shows the shift key to be different than the others, but mine isn't. It is a 
definite improvement over the membrane, but be sure to try it before you buy one. 


ATR 8000 Disk Drive Controller 
(Software Publishers, 2500 E. Randol Mill Rd., Arlington, TX 76011 (819)469-1181 ) 


Always wanting to be one of the first to get a significant new piece of equip- 
ment for the Atari, | took the gamble and bought one of the first ones avaiable. 
This unit came with 64K, a parallel and serial port, a disk drive controller which will 
interface with single or double density drives, both 5 1/4"and 8", and runs CP/M. 
Since it is new, not all of the software is ready, and the hardware still has a few 
bugs in it. The company has been very helpful on the phone, and has given us 
much advice on getting it to run. The first problem was a tremendous amount of 
TVI that was helped by adding some capacitors. It has some trouble reading disks 
made on an Atari 810, but a new ROM is almost ready and is supposed to solve 
that problem. It is supposed to be able to read 5 1/4" Xerox 810 formated CP/M 
disks, as well as Kaypro with some modifications, and 8" single density CP/M 
disks. Software in the works now, to be sent free of charge to owners, include a 
high speed Atari disk copier, a CP/M modem program, a program to emulate 
various CP/M machines so their disks can be read, etc. The company will be com- 
ing out with a Newsletter to keep owners informed and, judging by the support 
they have given so far, expect it will be a good one. 

When using it in the CP/M mode, the Atari becomes a dual 40 Col. terminal with 
2 windows of 40 Col. each to match the 80 col needed for CP/M. You also have the 
choice of using a regular 80 col terminal, or, in the near future, a BIT-3 board. True 
80 col. are needed for Word-Processors and other programs using cursor address- 
ing. l 
Potentially a very nice unit, with a company trying very hard to make it all work 
ok. Right now, | recommend it only to those technically inclined who like to fiddle 
with and help debug new equipment. We will keep you posted, and, if there is 
enough interest, will have a reguler column for the ATR 8000. 


DataSoft has just released their new BASIC Compiler for $70. Empulse (POB 
593 Great Barrington, MA 01230) has sent a very nice cover for the Bulletin board 
computer. Microvector (132 s. Broad St. Canfield, OH 44406 suite B) sent a Stick- 
Key graphic key stickons for your keyboard for only $2.50. 

COMPUTE! Books, Greensboro, NC has just released another fine book for the 
Atari, Mapping the Atari by lan Chadwick. This is a very complete memory map 
and guide to every known memory location, with many examples and simple 
BASIC programs to illustrate their use, Over 194 pages, only $15. 

We now have a local service station in Eugene, where we can get quality repairs 
quickly — many times in one day. A far cry from the 1 week and more when we 
sent it away! They do good work, and will repair out of area Atari equipment, war- 
ranty work, etc., for ACE members. Mr. Television 780 Blair Blvd, Eugene 
503-485-4876. 

Atari has announced their summer computer camps for all over the U.S. — New 
England, Poconos (PA), Chesapeake, Smokey Mountains, Midwest (Land of 10000 
Lakes, Minnesota), Danville (CA), and San Diego. These have all the usual camp 
things plus computer training at all levels. These look like deluxe camps, so | ex- 
pect they are not inexpensive. They also need Computer experts, counselors, 
teachers, directors, etc. For job information, send resumes to Atari Computer 
Camps, ATTN: Pat Tubbs, Dept F, 1196 Borregas, POB 427, Sunnyvale, CA 94086. 
For camp information, call 1-800-847-4180, or in NY or Canada, call collect 


212-889-5200. | wish | could go! 
— Mike Dunn 


DATA PERFECT...AGAIN 


For those of you who may wonder why it is you are now reading our third review 
of DATA PERFECT, I will explain. We of the ACE feel useable utility programs are 
extremely important. In my mind, the very existence of the personal (or home) 
computer is based on its ability to be used as a tool. At least that is why | purchas- 
ed mine. A computer without worthwile utility programs available is no more than 
a very expensive toy. 

In my last review, | said the programming behind DATA PERFECT is extremely 
well done, and the program presents more power and capability than most home 
users are apt to outgrow any time soon. My admiration for the skill and labor of 
the programmers was balanced by my dislike of the extremely poor documenta- 
tion. As previously stated, the book stank. In that article | pleaded with LJK to hire 
a writer and redo the book. | don't know how much our review had to do with their 
actions, but they hired a writer and re-wrote the book from the ground up. Not only 
did they produce a complete re-write, but they did so in only 2 months. 

In this age of unresponsive corporations and sellers of goods who care nothing 
for the needs or wants of the consumer, it is quite refreshing to find a company 
who listens. That they acted so quickly speaks of a real desire to provide the 
public with the products and support the users want and need. The NEW 
documentation which we received is as good as the original was pad. 

Beginning with loading the disk, and explaining each step in a key-by-key man- 
ner, the new book takes the reader through building a sample data-base, which 
happens to be a check register. This data-base you create is useable and the 
report you create later is also the real thing. It can be used for your own records if 
you write enough checks to warrant computer time. 

After following through this and the other examples in the book, you will find 
yourself familiar enough with the capabilities of DATA PERFECT to create your 
own custom data-base and begin to reap the rewards of computer record-keeping. 
Instead of the six weeks of study | recommended earlier, a normally intelligent 
person can become conversant with DATA PERFECT in a weekend. 

When only the old documentation was available, my recommendation was for 
those of you whose needs were simple and/or who didn't want to spend six weeks 
studying, to buy FILE MANAGER 800+. Now that LJK has straightened out the 
documentation BUG, | can wholeheartedly recommend DATA PERFECT as the 
most powerful, flexible, and USEABLE data-base management program currently 
available for the ATARI personal computer. 

To LJK, congratulations on a remarkably quick and competent recovery from a 
major blunder. Keep that new writer on your staff, he/she is GOOD. To SYNAPSE, 
how soon will we see a machine-language re-write of FILE MANAGER 800+ 


—Kirt E. Stockwell 


HELP! 


The documentation for Filemanager 800+ says up to 9 (!) pages of 20 fields 
each are available when creating forms. So far, l've been unable to use more than 
one page. Does anyone know how to create forms with more than one page of 
fields? 

Over a month ago, | sent a SASE to SYNAPSE explaining my problem and ask- 
ing for the solution. No answer. So I’m putting the question out to ACE readers. 

If you can help, please respond by contacting: Jim Bumpas, Co-Editor of ACE, 
4405 Dillard Road, Eugene, OR 97405 (503) 484-9925. Thanks. 
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LE Parallel Disk Drives 


Here is the rest of the review | started in August. I’m late because the double 
density wasn’t finished before now. 

After ordering in May | got the single density drive two and a half months later. 
The last week before Christmas | got the double density version of the LE system 
(which runs the same as the Percom dd). The price of the complete one drive 
system is $1150.00. Each additional drive is $375.00. 

You must have a monitor and an ATARI 800. The OS board in the ATARI is 
replaced by another board and this board extends four inches above the 800 and 
throws off enough RF to make it impossible to use any TV within 20 feet. | also 
highly recommend another brand of disk drive (e, Percom) as a back up. | have 
had mine go out many times. The weight of the LE system board causes the 
mother connections in the ATARI (which are not made to stand up to four times 
the weight and the added leverage) to be bent. This results in a poor connection, 
stopping operation. The extra weight causes the board to be unstable in the 
ATARI. | finaly had to put in my board guides to help hold it. The cure for this is to 
replace the 44 pin card connection in the bottom. It is very susceptible to dust and 
general corrosion of the contacts so you must clean them at least twice a month 
and sometimes daily if it is used in a dusty environment. 

In the early systems, the board was a prototype. This means the board often has 
to be repaired or modified. Mine developed two broken traces which | spent some 
time on before tracking down and fixing it myself. 

There seems to be confusion on how to offer the upgrades. Service takes a 
while. Usually two to three weeks and you have to send in the whole system. The 
manual was supposed to be modelled after the ATARI manuals, but it seems little 
more than a sales flyer. | wish they had gone into detail on how their system 
works, so as to use and address the six expansion slots. The information about 
memory locations is given a name but not equated! There are some other bugs 
which have been fixed. One bug destroyed some of the disk directory when the 
door was closed. | have lost a few non-replaceable disks this way. 


So now the features it has permit complete control over the disk drive. The disk 
is controlled from the new board in the ATARI rather than from inside the drive 
like the 810 or Percom. It achieves some of its increased speed with staggered 
sectoring rather than using every ninth sector as all the others do. This allows you 
faster access time to the disk. There is also a speed increase from the parallel 
data transfer. All this means is that Programs like DOS boot in half the time and 
files like the ATARI Macro assembler load in 5 seconds vs. 15 seconds (Atari fast 
format). The disk drive mechanism is from Tandon and is rock steady with none of 
the timing problems. 


Some of the things which can’t be done on the 810 or a Percom (for more 
money of course; a copy type system runs $2800.00 for two drives): Bad sectoring; 
analog copying; deleting and reading of the sector marks which is vital for those 
producing software protection. These things can also be done (probably cheaper ) 
by using a modified TRS-80 system (speed adjustment and custom software). 

The 4k eprom (which occupies C000-D000 location in the ATARI) is what gives 
the LE system its parallel disk access. The LE system format of every other sector 
is great unless you try reading it on an ATARI 810 drive because it must wait for a 
whole track plus one sector, so it's slow. 


They also have a 80 col text board (bit three board), an EPROM burner ($100), 
and a parallel printer interface. The promise of a CPM and winchester hard disk 
boards have been shelved. Until they redesign the LE system board to better ac- 
commodate the 800 it will still be only a prototype. Before you get into this, be 
sure you feel comfortable repairing and troubleshooting computers. The interface 
board has on it a Z80 processer running the disk interface with a 6520 and 1771. 


Hayes Stack Smartmodem 1200 


This is one of the new modems with a 1200 baud rate. The new breed of 
modems are only composed of a couple of chips, reducing the chance of 
something going out. The 1200 looks just like the 300 baud model and has 
features just like it. There is autodialing, redialing, originate, answer, and then all 
the settings for full/half duplex and parity. This is all done by sending a command 
over the modem when off-line. The modem intercepts all messages going out and 
looks for the special commands. You can do tone or pulse dialing. The 1200 stack 
has a built in speaker which monitors your dialing. A nice thing about it is the er- 
ror codes it reports back to you about the state of the modem. The default state is 
1200 baud. 

Setting the stack up is easy: Plug it in and use a terminal program such as the 
APX Chameleon or the one from Swifty Software (Datalink). | use the APX version 
but it does have a bug which has been there for years (as long as it been out). This 
causes some confusion with the screen editor and the reading of the keyboard 
when doing a file transfer. But with the Chameleon source code all you do is 
change three lines in the assembly file of TSOP to read 

1900 DOWN2 LDA CH 

2000 CMP #255 

2010 BEQ DOWN2 
Then. reassemble. 

| have not used the Datalink but have heard good things about it (I don’t know; it 
may not run at 1200 baud though). The list price of the 1200 Hayes Stack is 
$699.00 (often discounted to around $550). This is well worth it if you use your 
Atari as a terminal and if the other end has a 1200 hookup. 

—George Shields, Spokane, WA 


THE PRESIDENT’S 
STATE OF THE ONION ADDRESS 


The goals of ACE are many-fold: First, to encourage the use pf computers in the 
home and the educational environment; Second, to develop the microcomputer 
(or its successor) as a viable and valuable tool in the home; Third, to make infor- 
mation and software available to all owners of Atari microcomputers as inexpen- 
sively as possible; Fourth, to encourage free enterprise by promoting the author- 
ing of quality software for the Atari, and by strenuously discouraging software 
piracy and copyright infringement. 

Subordinate to the goal of encouraging the use of microcomputers in the home 
and the educational environment, the Eugene, Oregon base group of the club has 
founded the ERACE (Educational Researchers of ACE). 

This group will be instrumental in developing a comprehensive catalog of 
educational software, as well as writing specifications for needed programs to fill 
the gaps. The ERACE will also be developing what we hope will be the most com- 
plete and useful Program Review Form available. 

There are other ACE groups supporting auxiliary programs in Eugene. FORTH: 
Exploring the language FORTH and developing a pool of competent FORTH pro- 
grammers. This group is also working with the local APPLE people to determine 
the transportability of FORTH. BASIC: Teaching the BASIC language to members 
interested in learning. Also helping new members to become familiar with the 
equipment and overcome their fears. MACHINE LANGUAGE: Teaching the use of 
ASSEMBLER and what really goes on inside the computer. This group is currently 
led by two of our bright young mid-teenagers. 

Within the next several months we expect to begin another group, this one 
devoted to the youth crowd. The age range is still up in the air, but this group will 
work with programming skills on a level most young people will be able to cope 
with. We look forward to getting this group fired up. 

Another group, one which has just been formed, is the Exchange Library group. 
This group will help our overworked exchange librarian husband/wife team to re- 
organize and catalog the program library, as well as adding basic documentation 
to those programs needing it. 

You will have noticed we carry no advertising in the newsletter. Our wish is to 
disperse as much information as possible within our budget. (The blurb about 
computerized typesetting nets us a hefty discount on our bill.) 

When purchasing equipment for the club, we remember the majority of the 
funds available come from out of town, and we are as frugal as we can be. We 
make every attempt to see that the club membership in general derives full value 
from every dollar spent, rather than making things nice for us locals at the ex- 
pense of all. 

As the President, | want to say a few words about the people who actually run 
the club. (I just point the direction | think we should be going occasionally). 

Many (most) of the organizations | have been involved with over the years have 
been very bottom-heavy. There have been far too many followers for the few chiefs 
to properly manage. Other groups seem to thrive on parliamentary procedure and 
useless formalities. | am proud to say this group has a larger number of truly 
capable and motivated leaders per capita than any other group l've seen. Their 
backgrounds run the gamut from doctors and lawyers to millworkers and 
students. None of them care what the occupation or social standing of the others, 
they are all united by a common purpose. The leaders of the ACE contribute not 
only many hours of actual “on-duty” time each month, but also field phone calls, 
work on their group projects, and work on their individual pet projects. | don't 
believe there is a finer group leading any club anywhere (or most corporations for 
that matter). 

Now for the names of the COUNCIL: 

Kirt E. Stockwell, PREZ 

Larry Gold, VICE PREZ 

Charlie Andrews, SEC/TREAS 

Mike Dunn and Jim Bumpas, CO-EDITORS 

Chuck and Jody Ross, EXCHANGE LIBRARIANS 
Alice Miles Erickson, ERACE 

Charlie Andrews, FORTH 

Larry Gold, BASIC 

John Atack and L.J. Knoll, MACHINE LANGUAGE 

Other valuable persons are Ruth Elsworth, Ron Ness, DeLoy Graham, E.J. Knoll, 
and our PAST PRESIDENT and FOUNDER Stacy Goff. | could add another 20 or 30 
names to this list, but space is getting tight. 

Our goal here in Eugene is to serve the entire membership of the club. If for any 
reason you feel we are failing or fouling up, or if you want some help with a pro- 
ject, please contact us either through the mail, the phone, or the bulletin board. 
We want to do this right, and your feedback is valuable to us. One last thing. Any 
person or group wishing a copy of our CONSTITUTION can obtain one by sending 


. a dollar to the exchange librarian to cover the cost of duplication and mailing. 


Respectfully, Kirt E. Stockwell 
irt E. Stockwe 
President 


HAM ATARI 


Having been an amateur radio operator since the age of eleven | have had the 
opportunity to experiment with many facets of this exciting communications hob- 
by. For those of you who are not familiar with Ham radio, amateurs can com- 
municate with one another using equipment capable of transmitting and receiving 
AM, FM, SSB (single sideband), NBFM (narrow band FM), RTTY (radio teletype), 
SSTV (slow scan TV), FSTV (fast scan), and CW (Morse code). In addition, amateur 
operators can utilize repeaters, transponders, and satellites to increase the range, 
effectiveness and reliability of their communications. 

Since ham radio is my first love (after my wife and children — although they 
disagree at times) it didn’t take long before | begin looking for a suitable match 
between my Atari 800 and my radio equipment. Unfortunately, the local hams | 
know either aren’t interested in computers or don’t know anything about the Atari. 
So, for a long time | had to be content with my lot and somewhat satisfied 
satisfied my desire to communicate via computer by frequenting a number of BBS 
across the country. | have met some very interesting people, but that certain 
“something”! enjoy with amateur radio is missing. To make matters worse, all the 
major ham publications print articles on computer networks, on-the-air nets and 
technical descriptions about interfacing radio equipment with computers. That 
was it! | called my good friend and fellow amateur, Jerry WA2TLI, and told him he 
had to buy an Atari 800 so we can experiment. After some heavy discussions with 
Jerry’s wife she was convinced he definitely needs to be involved with computers. 
We each bought Hayes Smartmodems and then the fun began. 

In the beginning Jerry and | uploaded and downloaded over the telephone using 
Datalink from Swifty Software. Each month our phone bills increased and we 
quickly decided there has to be a better way. Indeed there is. Right there in the 
Smartmodem owner’s manual is the documentation we need to adapt the modem 
for use with radio equipment. Fortunately, the FCC recently approved amateur 
use of ASCII computer codes so all we had to do was build an interface (terminal 
unit). II get into the details in a moment, but first a brief discussion of the theory 
is in order. 

When we transmit RTTY on VHF frequencies we are sending two different 
audio tones to represent the MARK and SPACE RTTY conditions. The MARK is a 
"rest" machine condition with the current ON. The SPACE condition has current 
OFF. We use these tones to directly modulate the FM transmitter to produce the 
F2 emission (audio tone modulation of a frequency modulated signal). Two dif- 
ferent tone frequencies are used for the RTTY MARK and SPACE, respectively. 
The difference between them is called the RTTY Shift Frequency, or for our pur- 
poses in this discussion, AFSK (Audio Frequency Shift Keying). To summarize, 
two electronic interfaces are required for AFSK: A tone encoder to convert the 
mark and space pulses into audio tones during transmission; and a tone decoder 
to convert the pulses back during reception. The Modem or Terminal Unit (TU) is 
the device which combines the transmit tone encoder with the receive tone 
decoder. 

The Smartmodem is ideally suited to handle telephone line and amateur radio 
data communications at rates up to 300 baud. It contains both tone encode and 
decode circuitry, permits automatic handshaking between data terminals, in- 
cludes touch-tone dialing, and is designed to operate in either half or full duplex 
operation. Although full duplex operation is preferable (data or text can be receiv- 
ed and printed while we are entering and transmitting data), most amateur com- 
munications take place in half duplex. In other words, we take turns talking or sen- 
ding and receiving data. 

With this general explanation of the theory behind the operation, let's move to 
the construction of an interface between the Smartmodem and the amateur 
transmit/receive equipment together with data codes to set the modem to half 
duplex. 

Configure the dip switches behind the front panel of the Smartmodem as 
follows: l 

1,2,4,6—UP 
3,5,7,8— DOWN 


NOTE: Switch #7 must be down in order to key the transmitter. 
Use the following keyboard codes to TRANSMIT data: 


ATMO - mutes the modem speaker (optional) 
ATFO - sets the modem to half duplex 
ATS10 = 255A - keys the transmitter and sends the carrier tone 


NOTE: Set the transmit deviation to + /-3KHz. 
Use the following keyboard code to RECEIVE data: 
ATCOH2D 


NOTE: When setting up for receive, raise the volume on the receiver until a 
“Connect” is displayed on the screen. Then reduce the volume until a “No 
Carrier” appears. Proper setting for receive volume is just past this point. 

This is all there is to it! Just arrange ahead of time who will originate (transmit) 
and who will answer (receive). Of course, if both of you can talk to each other on 
another frequency, then all non-data communication can take place there. 

If this article stimulates interest let me know and | will encourage Jerry to write 
about full duplex operation, RTTY on VHF and UHF FM repeaters, RTTY on 
simplex channels using the Kantronics Interface and data transferring using SSB 
(single sideband) on the HF (high frequency) bands. 

Happy ham-computing!!! 

— Burt Grebin - K2KLN 
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“A SONG IS 
A WONDERFUL KIND OF THING” 


Using Sound in ATARI PILOT To Encourage Children To Program 
by Ruth Ellsworth 
It is often difficult to get children to take the time to actually sit down and pro- 
gram. Sound in ATARI PILOT is easy enough that, with a little encouragement, 
even elementary age children can be helped to experiment with writing programs. 
This is possible because music in ATARI PILOT requires the mastery of only two 
commands: the SO: command, and the PA: command. 


The SO: command plays the sound (note) desired and can hold up to four voices 
(variables). The variables for the notes Low C to High F# are the numbers 1 
through 31. Thus a C major tonic chord is programmed SO:13,17,20 (13 is the 
variable for Middle C). 


The PA: command determines the duration of the note desired (technically it 
pauses the designated length of time until the next command is processed). It 
follows the SO: command for the note desired and can have a value from 0 to 
3600. The PA: command for the notes usually associated with music are: Whole 
Note = PA:128, Half Note = PA:64, Quarter Note = PA:32, Eighth Note = PA:16, Six- 
teenth Note = PA:8, and Thirty Second Note = PA:4. These values are relative as 
the tempo of music varies. Therefore, children can be encouraged to experiment 
with the sound of music and tempo as well as programming through the use of 
ATARI PILOT. 


An understanding of the value relationships of the different musical notes can 
be helpful to a child when programming in ATARI PILOT, but is not essential. Ex- 
perimenting with musical programming seems to help children acquire an 
understanding of those relationships as they develop skill and tone recognition. 


The program which follows is written with two purposes in mind. The first is to 
allow our children to “play” the computer as they would the piano, and even our 
just turned three year old likes “to make the computer sing.” The second purpose 
is to help them associate the SO: commands of PILOT with the keys of the piano. 


In the text area of the screen the name of the piano keyboard key is given, the 
letter on the computer keyboard to be typed to “play” the note, and the SO: value 
of the note (space limitations do not allow those values to be displayed as attrac- 
tively as desired, but work when explained to the child). Each note will play until 
the next note is typed or the space bar is pressed. The space bar has the SO: value 
of 0 so the music can be stopped at any time, and to allow a note to be played 
repeatedly, yet separately. 


Because of the required listing space, | have not included sharps or flats in this 
routine. It is a “C Major Player Piano" as my children might say. That routine and a 
routine to save the variables to disk or cassette will be included in our #2 Pilot 
Disk which we will be giving to ACE this spring. 


The listing itself is quite straight-forward. ATARI PILOT runs fastest when the 
modules used most often appear at the beginning of the listing because PILOT 
searches for modules each time from the top of the listing down. Therefore, the 
*SOUND module and note sounds appear first in an attempt to make the program 
run as rapidly as possible. The fact that ATARI PILOT is not a fast language is also 
the reason ! did not change the key color as well as the note color. 


The *SOUND module @B764 tells the computer to check the decimal value of 
the last key pressed and to jump to the module indicated if the listed key was 
pressed. No return key needs to be typed. Decimal values for the computer 
keyboard are found on page 50 of the techincal manual or can be found using the 
T: command. (Control characters are equal to the letter or number value of the key 
plus 128 to allow the use of control keys in programming.) 


If you are typing this program in, | suggest you type the modules separately and 
save them. This is the way we build our programs which allows us to reuse the 
modules in many different ways by loading them then using the REN command. 
For example, this program which, draws a piano keyboard, staff, and notes, when 
loaded without the *SOUND module works nicely for games or review of the scale 
and its relationship to the keys of the piano, or the relationship of the notes on the 
staff. Typing programs by modules also makes debugging much easier because 
of the shorter listings. Typing can be kept to a minimum in this program because 
the lines tend to be similar. The lines in each module can be easily modified as 
needed by typing in the first line and then changing only the necessary 
characters. Line 100 becomes line 110 simply by moving the cursor over the first 0 
and typing 1, moving the cursor to the value 22 and typing 18, then moving the cur- 
sor to X and typing C. 


Programming music in ATARI PILOT can be "a song," and the means of en- 
couraging children to become involved progarmming and experimenting with 
music. 


10 U: BEGIN 

20 U: STAFF 

30 U: STREBLE 

- 40 U:tBA55 

50 U:tNOTES 

$0 U: tNAMES 

70 U: SSOUND 

80 E: 

90 150UND 

100 J(85264:33):1N5D 
110 J(@B764=22): 3% 
120 J(@B764=18) :8C 
130 J(@B764=16):4V 
140 J(@B764=63) :8A 
150 J(88764262):15 
160 J(@B764=58) 4D 
170 J(@B764=56) AF 
180 J(@B764=61) :36 
190 J(88764257) :1H 
200 J(8876421):1J 
110 J(@B764=5):3K. 
220 J(@B764=0) :11 
430 J(88764245):1T 
240 J(88764243) :1Y 
250 J(88764211):1U 
260 J(@B764=13) : A 
270 J(@B764=8) : 80 
280 J(@B764=10) : 1P 
290 J:450UND 

300 E: 

310 tNSD 

320 50:0 

330 3NNT 

340 J(@B764=33) :3NNT 
T GEES 


310 1ND 
380 J: SOUND 
390 E: 


400 1X 

410 GR: PENRED; GOTO-50,2;4( DRAW! ; TURNSO 
),G0T0-71,-27 

420 50:1 

430 *XNT 

440 J(@B764=22) : 4XNT 

i Ne ee ae 


470 3XND 

480 GR: PENERASE; GOTO-50,2; 4(DRAW! ; TURN 
90) ;GOTO-71,-27; PENBLUE ; GOTO- 50,2;4(DR 
AVi; TURNS) ; : GOTO- 71,-27 

490 J: SOUND 

500 E: 


510 1C 

520 GR: PENRED; GOTO-43,5 ;4( DRAW! ; TURNIO 
) 6010-63, -27 

330 50:3 


940 SCNT 
550 J(@B764=18) : SCNT 
ir "adl 


580 *CND 

590 GR: PENERASE ; GOTO-43 , 5; 4(DRAVI ; TURN 
90); GOTO-63,-27 ; PENBLUE ; GOTO-43, 5; 4 (DR 
AVI TURNS 0) : GOTO-63, -27 

600 J: SOUND 

610 E: 


620 $V 
630 GR: PENRED;GOTO-36,7;4(DRAWI ; TURNIO 


RUTH’S PILOT 


);60T0-55,-27 
640 50:5 

650 tVNT 

660 J(8B764216):1VNT 

670 J(@B764()16) :3 VND 

680 E: 

690 1VND 

700 GR:PENERASE; GOTO-36 , 7; 4( DRAVI ; TURN 
90);60T0-55, -27 ; PENBLUE; 6010-36 , 7 ; 4(DR 
AW1 ; TURN90) ; 6010-55 , -27 


110 50:0 
720 J:150UND 
130 E: 


740 3A 

750 GR: PENRED;GOTO-29, 10; 4( DRAW! ; TURN? 
0); 6010-47, -27 

760 50:6 


770 ANT 
780 J(@B764=63) : SANT 
E eegen 


810 SAND 

820 GR:PENERASE;60T0-29 , 16 ; 4( DRAVI , TUR 
N?0) ;GOTO-47, -27 ;PENBLUE ; GOTO- 29 , 10,40 
DRAW! ; TURN?0) ;GOTO-47,-27 


830 J:150UND 


840 E: 


850 35 

860 GR:PENRED;G0TO-22,12; 4CDRAVI ; TURN? 
0);6010-39, -27 

870 50:8 


880 t5NT 
090 J(88764-62):15NT 
de de 


920 45ND 

930 GR:PENERASE;G0TO-22 , 12  4(DRAWI ; TUR 
N90) ;GOTO-39,-27;PENBLUE; GOTO- 22 , 12,40 
DRAW! ; TURNS0) ; GOTO-39,-27 

940 GR:PENBLUE;GOTO-22,12;4(DRAW! ; TURN 


90) 
950 J: S50UND 
960 E: 


970 1D 

980 GR:PENRED;GOTO-15, 15; 4(DRAWI ; TURNS 
0),8010-31,- 

990 1D50 

1000 50:10 

1010 4DNT 

1020 J(@B764=58) :4 DIT 

1030 J(88764()58) : SOND 


1050 *DND 

1060 GR:PENERASE ; G0TO-15 , 15 ; 4( DRAVI ; TU 
RN70) ;G0T0-31, -27; PENBLUE ; G0TO- 15, 15; 4 
(DRAW! ; TURNS 0) ; GOTO- 31 , 41 

1070 J:350UND 

1080 E: 


1090 1F 

1100 GR:PENRED;GOTO-8, 17 ; 4  DRAVI ; TURN? 
0) ;6010-23, -27 

1110.50: 12 

1120 SENT 

1130 J(@B764=56) : SENT 

1140 J(88764(056) :tFHD 

1150 E: 

1160 ERD 

1170 GR:PENERASE; GOTO-8 , 17 ; 4( DRAVI ; TUR 
N?0);G0T0-23, -27 ; PENBLUE ; GOTO-8, 17 OD 
RAW! ; TURN?0) ;60T0- 23 , -27 

1180 J:350UND 


1190 E: 5 


1200 16 

1210 GR:PENRED;60TO-1,20;4(DRAVI ; TURNS 
0) ; 6010-15, - 27 

1220 50:13 

1230 *6NT 

1240 J(88764-61) : t6NT 

1250 J(88764061):16ND 

1260 E: 

{270 36ND 

1280 GR:PENERASE; GOTO- 1,20 ; 4 DRAVI ; TUR 
N9?0);G0TO-15,-27 ;PENBLUE ,GOTO-i,20;4(D 
RAWI ; TURN?0) ; 60T0- 15 , - 2? 

1290 J: SOUND 

1300 E: 


1310 3H 
1320 GR:PENRED;60T06 , 22 ; 4( DRAW! ; TURN9 0 


) 

1330 GR:GOTO-7,-27 

1340 50:15 

1350 *HNT 

1360 J(@B764=57) tHNT 

1370 J(88764057) : SHND 

1380 E: 

1390 *HND 

1400 GR: PENERASE; GOTO6 , 22; 4(DRAVI ; TURN 
90) ;60T0-7 , -27 ; PENBLUE ; GOTO6 , 22; 4( DRAV 
1; TURN90) ;GOTO-? , - 27 

1410 J: &SOUND 

1420 E: 

1430 1. i 

1440 GR:PENRED;60T013,25; 4(DRAW! ; TURN? 
0);60T01 , -27 

1450 50:17 

1460 1JNT 

1470 J(8B76421):1JNT 

1480 J(8876401):*JND 

1490 E: 

1500 UND 

1510 GR:PENERASE;60T013,25 ; 4( DRAVI ; TUR 
N?0);60T01,-27 ; PENBLUE ; 607013, 25 ; 4 ( DRÀ 
Wi; TURN90) ; G0TO1, -17 

1520 J:350UND 

1530 E: 


1540 4K 

1550 6R:PENRED;60T020,27 ; 4 DRAVI ; TURN? 
0); 60T0? , -27 

1560 50:18 

1570 1K50 

1580 J(@B764=5) : 1K50 

1590 J(88764005) :1KND 

1600 E: 


1610 3KND 

1620 GR:PENERASE ;60T020 , 27 ; 4(DRAVI ; TUR 
N90); G0TO9 , -27 ; PENBLUE ; G60TO20 , 27 ; 4 (DRÀ 
Wi; TURN?0) ,60T09 , -27 

1630 J:150UND 

1840 E: 


1650 tL 

1660 GR:PENRED;G0TO27 , 30; 4( DRAW! ; TURNS 
0);601017, - 

1670 50:20 

1680 1L50 

1690 J(@B764=0): &LS0 

1700 J(@B764()0): SLND 

1710 E 

1720 1LND 

1730 GR:PENERASE;G0T027,30; 4( DRAVI ; TUR 
N?0);60T017, -27 ; PENBLUE; G0TOZ27 30; 4 (DR 
ÀV1;TURMS0);60T017 , -27 

1740 J:*50UND 

1750 E: 

1760 1T 


1770 GR:PENRED;60T034, 32 ; 4( DRAW! ; TURN? 
0) ;60T025, -27 

1780 50:22 

1790 1T50 

1600 J(@B764=45) :£T50 

1810 J(88764()45) : 1TND 

1820 E: 


1830 SIND 

1840 GR:PENERASE;GOTO34 , 32; 4 (DRAW! ; TUR 
N90) ;GOTO25, -27 ;PENBLUE ; GOTO34 , 32; 4 (DR 
Àv1; TURN90) ;60T025 , -2? 

1850 J:*50UND 

1860 E: 


1870 tY 

1880 GR:PENRED;GOTO41,35 ; 4 (DRAWI ; TURN? 
01;60T033, -27 

1890 50:24 


1900 1Y50 

1910 J(@B764=43) : 1 Y50 

1920 J(@B764()43): SYMD 

1930 E: 

1940 SYND 

1950 GR:PENERASE; GOTO41 , 35,4 (DRAW! ; TUR 
N90) ;GOTO33,-27; PENBLUE ;G0TO41 , 35; 4(DR 
AWI ; TURN?0) ;GOTO33 , -27 

1960 J:150UND 

1970 E: 


1980 *U 

1990 GR:PENRED;GOTO48, 37 ; 4(DRAVI ; TURNS 
0); 601041, -27 

4000 50:25 

2010 1U50 

2020 J(@B764=11) : 8U50 

2030 J(887640 11): *UND 

2040 E: 

2050 SUND . 

2060 GR:PENERASE;G0T048 , 37 ; 4( DRAVI ; TUR 
N90);GCOTO41, -27 ; PENBLUE ; GOTO48 , 3 ; 4 (DR 
AW1 ; TURN?$0) ;GOTO4! , - 27 ei 
2070 J: 450UND 

2080 E: 


2090 $I 

2100 GR:PENRED;GOTOSS , 40; 4 (DRAVI ; TURN? 
0} ;G0T049,-27 

2110 50:27 

2120 4150 

2130 J(88764213):3150 

1140 J(@B764()13): 81ND 

2150 E: 

2160 SIND 

2120 GR: PENERASE; GOTOSS , 40 ; 4(DRAWJ ; TUR 
N90) ;COTO49, -27 ;PENBLUE ; GOTOSS , 40; 4 (DR 
AW1 ; TURNS0) ; GOTO4? , -2? 

2180 J:150UND 

2190 E: 

2200 10 

2210 GR:PENRED;GOTO62 , 42 ; 4C DRAVI ; TURNS 
0);60T057, -27 

2220 50:2? 

2230 1050 

2240 J(@B764=8) : #050 

2250 J(@B764()8) : SOND 

2260 E: | 


2270 SOND 

2280 GR:PENERASE;GOT062 ,42 ; 4 DRAVI ; TUR 
N90) ;G0TOS7 , -27 ;PENBLUE ; GOTO62 , 42; 4 DR 
AW1 TURN90) ; G0TOS? , - 27 

2290 J:350UND 

2300 E: 


2310 1? 
2320 GR:PENRED;GOTOS? , 45 ; 4 DRAWI ; TURN? 
0); 60T065, -27 


2330 50:31 


2340 $P50 
2350 J(@B764=10) :1P50 
2360 J(8B8764(010) : SPMD 


2310 E: 

2380 3PND 

2390 GR:PENERASE; GOTOGO , 45; 4 ( DRAVI ; TUR 
N90) ;GOTO6S , -27 ; PENBLUE ; GOTO69 , 45 ; 4 (DR 
ANIL ; TURN?0) 6017065 ,-27 

2400 J:350UND 

2410 E: 


2420 *NOTES | 
2430 GR:GOTO-50,2;4(DRAW! ; TURN90) 
2440 GR:60T0-43,5; 4 LDRAVI ; TURNO) 
2450 6R:60T10-36,7; 4( DRAVI ; TURN90) 
2460 CR:60T0-29,10; 4( DRAVI ; TURN?0) 
2420 6R:60T0-22,12;4(DRAVI ; TURN?0) 
2480 6R:60T0-15,15; 4( DRAVI ; TURN?0) 
2490 GR:60T0-8,12; 4(DRAVI ; TURN9 0) 
2500 GR:60T0-1,20; 4(DRAVI ; TURN?O) 
2510 GR:60T06,22; 4(DRAVI ; TURN?0) 
2520 GR:60T013,25;4( DRAW! ; TURN?) 
2530 GR:GOTO20,27;4( DRAW! ; TURN?0) 
2540 GR:60T027,30; 4 DRAWI ; TURNO) 
2550 6R:60T034,32; 4(DRAVI ; TURN?0) 
2560 GR:G60T041,35;4( DRAW! ; TURNSO 
2570 6R:60T048,37 ; 4( DRAVI ; TURN90) 
2580 GR:G0TOS5 ,40;4(DRAWL ; TURNO ) 
2590 GR:GOTO62 ,42;4(DRAW! ; TURNIO) 
2600 GR:GOTOG9 45; 4( DRAW! ; TURNO) 
2610 E: 

1620 BASS 

2630 GR:GOTO-65 ,10;4(DRAW! ; TURN-90) 
2640 GR:TURNTO180 

2650 GR:S (DRAW! ; TURN30) 

2660 GR:9 (DRAWI ; TURNIS?) 

2670 GR:18(DRAW! ; TURN10) 

2680 E: l 

2690 4TREBLE 

2700 GR:PENBLUE 

2710 GR:GOTO-65,19 

2720 GR:TURNTOO ; DRAVZ6 ; TURNTO? 0 
2730 GR:9 (DRAW! ; TURNZ9) 

2740 GR:21(DRAWI ; TURN- 8) 

2750 GR:18CLDRAVI ; TURN-10) 

2160 GR:5( DRAW! ; TURN-20) 

2720 GR:5(DRAWI ; TURN-5) 

1280 GR:18( DRAW! ; TURN- 30) 

2790 GR:60T0-65,19 ; 4(DRAVI ; TURN?O) 
2806 E: 

2810 1STAFF 

2820 CR:60T0-75 , 43 

2830 CR:DRAWTO?5, 45 

2840 GR:GOTO-75 ,40;DRAWTO75 ,40 
2850 GR:60T0-75,35; DRAVIO?5 , 35 
2860 GR:SOTO-75 , 30; DRAWTO?75 , 30 
2870 GR:GOTO-75,25 ;DRAWI075 , 25 
2880 6R:60T0-75,20; TURNTO?0 

2890 GR:16(DRAV2; 607) ; DRAVZ 

2900 GR:60T0-75, 15; DRAWTO75,15 
2910 GR:GOTO-75 , 10; DRAWTO75 , 10 
2920 GR:60T0-75,5; DRAVIO?75, 5 
Se GR:GOTO-75 ,0;DRAWTO75 , 0 


2940 E: 

2950 SBEGIN 

2960 R:PIANO COLORS 
2970 GR: CLEAR 


3020 *KEYBOARD 

3030 GR:PENBLUE;GOTO-75,-5 (KEY í 
3040 U:tFIRSTKEY 

3050 GR:PENYELLOW;GOTO-69,-5 (KEY 2 
3060 U: &BLACKKEY 

3070 GR:PENBLUE;GOTO-64,-5 (KEY 3 
3080 U: SKEYBETWEEN 

3090 GR:PENYELLOV; GOTO-61,-SLKEY 4 
3100 U:SBLACKKEY 

3110 GR:PENBLUE;GOTO-56,-5 (KEY 5 
3120 U:3RIGHTSK | 

3130 GR:PENBLUE;GOTO-50,-5 (KEY 6 
3140 U:SLEFTSK 

3150 GR:PEN YELLOW;GOTO-45,-5 (KEY ? 
3160 U: BLACKKEY 

3170 GR:PENBLUE;GOTO-40,-5 

3180 U:8KEYBETWEEN 

3190 GR:PEN YELLOW; GOTO-37,-5 [KEY 9 
3200 U:tBLACKKEY 

3210 GR:PEN BLUE;GOTO-32,-5 (KEY 10 
3220 U: 8KEYBETWEEN 

3230 GR:PEN YELLOW;GOTO-29,-5 EKEY11 
3240 U: 8BLACKKEY 

3250 GR:PEN BLVE;GOTO-24,-5 CKEY12 
3260 U:*RIGHTSK . 

3270 GR:PEN BLUE;GOTO-18,-5 CKEYI3 
3280 U: SLEFTSK | 

3290 GR:PEN YELLOW;GOTO-13,-5 (KEY14 
3300 U: SBLACKKEY 

3310 GR:PEN BLUE;GOTO-8,-5 (KEY15 
3320 U:tKEYBETWEEN s 

3330 GR:PEN YELLOW;GOTO-5,-5 CKEY16 
3340 U:4BLACKKEY 

3350 GR:PEN BLUE;GOTOO,-5 CKEY1? 
3360 U: SRIGHTSK 

3370 GR:PEN BLUE; GOTO6,-5 (KEY18 
3380 U:tLETTSK . 

3390 GR:PEN YELLOW;G0TO11,-5 [ 

3400 U:SBLACKKEY. . 

3410 GR:PENBLUE;GOTO16,-5 ( 

3420 U:tKEYBETVEEN 

3430 GR: PENYELLOW;GOTO19,-5 (KEY21 
3440 U:SBLACKKEY 

3450 GR:PENBLUE;60T024,-5 [KEY2 
3460 U:tKEYBETWEEN 

3470 GR:PEN YELLOVW;GOTO27,-5 (KEY23 
3480 U:SBLACKKEY 

3490 GR:PENBLUE;G0TO32,-5 (KEY24 
3500 U:tRIGHTSK 

3510 GR:PEN BLUE;GOTO38,-5 (KEY25 
3520 U:SLEFTSK 

3530 GR:PEN YELLOW;G0T043,-5 LKEY26 
3540 U:SBLACKKEY 

3550 GR:PEN BLUE;GOTO48,-5- (KEY 27 
3560 U:SKEYBETWEEN 

3570 GR:PEN YELLOV;GOTOS1,-5 

3580 U:3BLACKKEY 

3590 GR:PEN BLUE;GOTOS6,-5 (KEY29 
3600 U: #RIGHTSK 
3610 GR:PEN BLUE; GOTO62,-5 (KEY 30 
3620 U:SLEFTSK 
3630 GR:PEN YELLOV;G0TO67,-5 (KEY31 
He Lann 


0 E: 
3660 SFIRSTKEY 
3670 GR:TURNTO?0 ; DRAWS ; TURN?0 ; DRAVI S T 
URNTO90 ; DRAV2 ; TURN90 ; DRAV10 ; TURNO ; DRA 


2980 C:@B712=128+0(PEN ERASE - BACKGRO V! TURNTO 


UND - DARK BLUE 

299€ (:8B709s0:0 [PEN YELLOW - BLACK 
3000 C:@B710=144+14 [PEN BLUE - WHI 
3010 C:@B706=70+0 [PEN RED - 


6 


TE 3690 E: 
LIGHT RED 3700 SLEFTSK 


; 0 
3680 GR:FILL25 (WHITE KEY LEFT STRAIGH 
T EDGE 


3710 GR:TURNTO?0 ; DRAW4 ; TURNSO ; DRAVIS T 
URNTO90 ; DRAV2 ; TURN?0 ; DRAVIO ; TURN?O ; DRA 
Wé ; TURNTOO 

3720 GR: :FILL25 (WHITE KEY LEFT STRAIGH 


3730 E: 

3740 SRIGHTSK 

SPI ama ai NIE 
3760 GR: DRAN ; TURNTOO ;FILL10 ; TURNTO90 ; 
DRAVZ ; TURNTOO ;FILLIS(WHITE KEY STRAIGH 

T WHITE EDGE 

3770 E: 

3780 *BLACKKEY 

3790 GR:TURNTO90 ; DRAW4 ; TURN?0 ; DRAW 4; T 
dt ee ee KEY 
3810 SKEYBETWEEN 

3820 GR:TURNTO?0 ; DRAW? ; TURN?0 ; DRAVI S ; 1 
URNTO9O ;DRAW2 ; TURNTO180 ; DRAVLO ; TURNS - 
3830 GR:DRAW6;TURNTOO ; FILL 10; TURNTO90 ; 
DRAW2 ;TURNTOO ;FILLISCWHITE KEY BETWEEN 
BLACKEYS 

3840 E: 

3850 NAMES 

SC TCDEFGABCDEFGABCD 


vk: TACVASDFGHJKLTYUI 
3880 T:1 3 5 6 8 101213151718202224252 


BUMPAS REVIEWS 


On January 18, 1983 the IRS finally recognized ACE is exempt from Federal in- 
come tax pursuant to I.R.C. Section 501(c)(7). We now must file tax returns on IRS 
form 990 by the 15th day of the 5th month after the end of our annual accounting 
period for any year in which our gross receipts normally exceed $10,000. 

This exemption was granted upon application filed by filling out IRS form 1024, 
which you may obtain from any local IRS office. The form is simple to fill out. You 
don't need to worry too much about getting everything in the application they 
want to see. Most likely they will send you a letter asking for additional informa- 
tion anyway. l've never seen one go through without the IRS asking for additional 
information. 

To file for exemption, you need to exist as a formed organization with organic 
documents in written form. You must provide the IRS with copies of these 
documents (Constitution, Articles of Incorporation, By-Laws, etc.). You are not re- 
quired to have all these documents (we have only a Constitution). But they do 
want to see at least one founding document. If you have more than one, they want 
copies of them all. 

| believe it may be possible for a non-profit computer organization to gain 
recognition as a charitable educational organization. This will qualify donations 
made by persons to the organizations as tax-deductible. ACE does not have this 
charitable status, and so donations made are not tax-deductible. The donations 


are income to ACE, but ACE will not have to pay income tax on this income. To. 


gain charitable status | think the organization will have to refrain from officially be- 
ing limited to a particular brand name of computer. The organization will have to 
be officially oriented more broadly to computers and computer education in 
general. 

If you have any specific questions about what l've said here, or get hung up 
anywhere in the application process, we might be able to answer your questions. 
Don't hesitate to ask. 

—Jim Bumpas 
Co-editor and 
Attorney for ACE 


TINY TEXT 1.1 


Tiny Text was originally written for members of ACE to produce “machine 
readable"documents for publication. | first saw it in the November, 1982 newslet- 
ter, where it received an upgrade from Jim Carr. After using my school's rather 
limited word processor for the Apple, | wanted at least that much power at home. 
Since | do not own a disk drive, most of the word processors cannot work for me. 
Therefore, | dug into Tiny Text to see if | could add a few functions. For instruc- 
tions on how to use the program, see the November ACE Newsletter. | will only 
talk about the various text-imbedded commands Tiny Text now sports. 


CTRL-E: Ends Current Line 
CTRL-I: Indents Next Line 
CTRL-S: Does a Linefeed 

CTRL-T: Tabs x Number of Spaces 
CTRL-C: Sets Center Justify Mode 
CTRL-P: Does a forms feed. 


The following commands are added: 
CTRL-F: Sets Fill Justify Mode 
CTRL-R: Sets Right Justify Mode 
CTRL-L: Sets Left Justify Mode (Default) 
CTRL-M: Sets Left Margin (Sequence terminated with “!”) 
CTRL-G: Sets Line Length (Sequence terminated with ''!") 
CTRL-H: Direct Printer Commands Follow (Again, terminated with “!’’) 


These new commands allow one to reset the margins from within the text. This 
allows simple placement of the return address in a letter, the offsetting of a quote 
in an essay, and so on. Imbedding printer commands allows one to (depending on 
the printer) set the line spacing, form fee, and perhaps form length. Using the 
above method causes a new line to be started, making it useless for underlining a 
single word, superscripting, etc. However, Tiny Text now also allows the imbed- 
ding of direct printer commands right in the line through either of the following 
methods. "ESC"control codes may be sent, including null characters. To produce 
an "ESC"character, simply type the ESC key twice. This allows super/subscrip- 
ting, underlining, changing character fonts on the same line, etc. A few words of 
caution: Each time ESC is encountered the program will automatically make room 
for two more codes. This may necessitate the use of null (CTRL-,) characters to 
pad those 2-stroke control codes. 

As well, while fill justifying, should an ESC be encountered near the end of a 
line, and then be left to be printed in the next line, a rather messy situation occurs. 
The solution: Pad the offending line (the one just before the ESC code) with 
spaces). Some experience will be the best explanation to this. 

The other method is to imbed inverse video control characters which the printer 
recognizes. Unfortunately, this will not work in the fill justify mode. 

To use the new commands which are delimited with the “!”character, first type 
the CTRL character which designates the function you wish to use, then type the 
string or values you wish to pass, and end the sequence with “!”. for example, 
suppose you want to set the left margin to '"20"halfway through your text. You 
type “CTRL-M20!”. 

Another added feature is the allowing of a zero form feed for those of us who 
have printers which can be programmed to skip at the end of each form. 

Those of you who already have the Tiny Text listing from the November 
newsletter can save a lot of typing. The only changed lines are the following: 115, 
716-719, 721-723, 730, 750, 752, 782, 815, 820, 850, 2200-3135. In addition, lines 610 
and 670 are deleted. In order to save memory, you may wish to delete the REMs in 
these lines. 

While Tiny Text is still no replacement for a full blown word processor, it can 
still satisfy the needs of many people, and, best of all, it is absolutely free. 

If you continue to have troubles, don't hesitate to write me: Dale Lutz, Box 373, 
Holden, Alberta, Canada, TOB 2CO. 

— Dale Lutz 


GORF REVIEW 


Gorf, by Roklan ($34.95), is a very fast action game consisting of four screens: 
AstroBattles, Laser Attack, Space Warp and Flag Ship. A fifth called Galaxians in 
the Arcade version was left out. It went between Laser Attack and SpaceWarp. 

AstroBattles is a typical Space Invaders type set up. You have a shield which 
disappears when you press the button, and reappears when you let go. You try to 
blast three rows of invaders. 

The second, Laser Attack, has you in space, and you have to shoot two sets of 
five invaders. There is one red “GORF”, as well as three yellow Kamikaze ships 
and one blue anti-matter laser-bearer per set. 

In the next screen the ships stay in the middle until, one by one, they come 
circling out. There is a web-type series of lines which confuse you. You can only 
shoot them as they circle, and they try to bomb you until they escape. 

Lastly there is the dreaded FLAGSHIP. You must blast holes in its shield and 
blow pieces off the ship until you can get the reactors. 

It is very difficult, and true to the Arcade Game. | recommend it highly. 

—Eric Wright 


1 REM $13133431313131111311311 011311 13111 
n TINY TEXT 1.1 i 

à REM #8 by Stan Ockars Sept. 81 34 
i ACE Newsletter Nov. &i i 

3 REM t1 Originally modified by %3 
t Jim Carr 01 Oct. 82 M 
44 ACE Newsletter Nov. 62 ti 

4 REM 48 | tt 
D ` Second upgrade by 33 
D Dale Lutz 64 Jan. 83. S1 

$5 REM tit i ti iii iii 
ADD THE FOLLOWING LINES AND 
DELETE LINES 610 AND 670. 

115 MODE=1 

716 IF B=6 THEN MODE=3 

717 IF B=18 THEN MODE=2 

718 IF B:12 THEN MODE=1 

719 IF B=3 THEN MODE=4 

721 IF Bz? THEN 2200 

722 IF B=13 THEN 2300 

723 IF B=8 THEN 3100 

730 IF T$(TP+1,TP+1)=" " THEN TP=TP+1: 

P=P+1:REM CHECKS FOR SPACES IN THE BEG 

INNING OF A LINE, NOT WHAT WE WANT 

150 A=ASC(TS(TP,TP)):IF A(32 AND AOZ? 

AND A()0 THEN C=0:G0TO 780 

152 IF -A=27 THEN RL=RL+3:REM ADDS THRE 

E TO LINE IN ORDER TO COMPENSATE FOR 

THE UNPRINTED ESCAPE CODES 

782 IF MODE=1 OR MODE=2 OR MODE=4 THEN 

A$zT5$ (P41,TP-1):60T0 810 

815 IF OP=3 AND FF)0 THEN LINESLINE«1: 

IF LINEX(PS-FF) THEN LINE=i:FOR I=1 TO 

FF:LPRINT " “:WEXT I ` 

820 SP=LM+(B=9)SIND+(B=20) STABs (MODE=4 

)S(LL-LEN(AS))/2+(MODE=2)3(LL-LEN(AS)) 

‘IF SP){00 THEN SP=100 

850 IF FL THEN FOR As! TO 1000:NEXT A: 

GOTO 500 

TE TP:TP«1:605UB 3000:LL-TEMP:GOTO 7 


! 
Ze TP=TP+i:GOSUB 3000:LM=TEMP:GOTO 7 
3000 TEMP=0 


3010 TEMP=TEMPS10+VAL(TS(TP,TP)):TP=TP . 


+1: IF TS(TP,TP)="!" THEN P=TP: RETURN 
3020 GOTO 3010 

3100 TP=TP+] :As="": I=! 

"HE IF T$(TP,TP)z"!" THEN P=TP:GOTO 3 


REA SS ES a ee 


0 
3130 IF 0Ps3 THEN LPRINT A$ 
3135 GOTO 713 


Machine Language 4 
by Stan Ockers 


=0058 
z00CB 


0000 


0600 68 

0601 A204 
0603 A558 
0605 85C 
0607 A55! 
0609 BLL 
0608 A921 
060D A000 
060F SICH 
0611 C8 

0612 DOFB 
0614 E6CC 
0616 CA 

0617 DOF6 
0619 18 

061A 90FD 


*606B 
=00CD 
=O06A 


061€ 


0258 68 

0239 A900 
0258 85CB 
025D 85CD 
025F AVEO 
0261 8500 
0263 AS6A 
0265 38 

0266 E905 
0268 856A 
026A 18 

026B 6901 
026D 85CE 
026F A204 
0271 A900 
0273 BIL 
0275 91CD 


10 ; 
20 ; 
30 ; 
40 ; 


Fill] the screen with A's 


Note: Locations used are defined 
at the beginning of the program. 


60 SAVMSC = $58 


70 INDLO = SC 


80 ; 
90 

0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 


0280 ; 
0296 ` 
0300 ; 


0310 


0320 ; 


0330 
0340 
0350 
0360 
0370 


0380 ; 


0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
490 
0500 
0516 
0520 
0530 


1- $0600 


PLA -; For USR function 

LDX 4504 ; 4 pages 

LDA SAVMSC ; Lo byte screen pointer 

STA INDLO ; into indirect pointer 

LDA SAVMSC+! ; Hi byte also 

STA INDLO«1 

LDA $571 ; An ‘A’ in screen code 

LDY $$00 ; Offset is initially zero 
LOOP] STA (INDLO),Y ; Put byte on screen 


INY ; Next screen position 
BNE LOOP] — ; Until Y is zero again 
INC INDLO+1 ; Up one page 
DEX ; Last page? 
BNE LOOPi — ; Not yet 
LOOP2 CLC ; Loop continually 
BCC 10002; ; (to prevent screen clearing) 
LISTING #i 
; Move character set from ROM into RAM 
FROMPT = CR 
TOPNT = $C) 
RAMTOP = $6A 
t= 600 
PLA ; USR again 
LDA #500 ; Initialize Lo bytes of pointers 
STA FROMPT 
STA TOPNT 
LDA $*E0 ; Char set is at £000 
STA FROMPT«1 ; Hi byte char. set 
LDA RAMTOP ; Lower RAMTOP 5 pages 
SEC ; (necessary for subtraction) 
SBC #505 
STA RAMTOP ; Area now reserved 
CLC ; Back up one page 
ADC #801 
STA TOPNT+1 ; Hi byte new char. set 
LDX HH ; 4 pages 
LDY #500 ; index initially zero 


0540 FILL LDA (FROMPT),Y ; Byte from ROM 


0550 


STA (TOPNT),Y ; into RAM 





0277 CB 
0278 DOFY 
027A ALL 
027C ESCE 
027E CA 
027F DOF? 
0281 60 


=0278 
=0054 
=0055 
=0002 
z(0025 
=0002 
z0015 


0282 


0600 68 


0601 AD7802 


0604 COOE 
0606 DOOA 
0608 Ma 
060A E002 
Dit F004 
OOE 9002 
0610 C654 
0612 C90D 
0614 D008 
0616 A654 
0618 E015 
061A B002 
0610 £654 
OIE (708 
0620 DOOA 
0622 A655 
024 E002 
0626 Hi 
0628 9002 
062A C655 
0626 C907 
062E D008 
0630 M55 
0632 E025 
- 634 B002 
0636 E655 
0638 60 


0560 INY 
0570 BNE FILL 


t 


t 


Next byte 
Rest of page 


0580 INC FROMPT+1 ; Next page from 
0590 INC TOPNT+1 ; Next page to 


0600 DEX . 
0610 BNE FILL 
0620 RTS 

0630 ; 

0640 ; 

0650 ; 

0660 ; 


. 
H 


t 


Finished? 
Not yet 


LISTING #2 


0670 ; ANSWER TO PROBLEM #5 


0680 ; 

0690 STICKO = $0278 
0700 ROWCRS = $54 
0710 COLCRS = $55 
0720 LTLIM ="§02 
0730 RTLIM = $25 
0740 TOPLIM = $02 
0750 BOTLIM = $15 


0760 ; 

0770 t= $0600 
0780 ; 

0790 PLA 


0800 LDA STICKO 
0810 CMP #$0E 
0820 BNE DN 
0836 LDX ROWCRS 


0840 (PA #TOPLIM 


0850 BEO DN 
0860 BCC DN 
0870 DEC ROWCRS 
0880 DN CMP #$0D 


0690 BNE LEFT 
0900 LDX ROWCRS 


0910 CPX #BOTLIM 


0920 BCS LEFT 
0930 INC ROWCRS 
0940 LEFT CMP #508 
950 BNE RIGHT 
0960 LDX COLCRS 
0970 CPX #LTLIM 
0980 BEO RIGHT 
0990 BCC RIGHT 
1000 DEC COLGRS 
1010 RIGHT CHP #507 
1020 BNE OUT 
1030 LDX COLCRS 
1040 CPX #RTLIM 
1050 BCS OUT 
1060 INC COLCRS 
1070 OUT RTS 


æ e 


D ~ 


t 


1 


æ 


. vm 


1 


~ - 7 mm e 


~ a 


mm e 


- e 


mm e 


SYMBOLS 

=0015 BOTLIM =§055 COLCRS 0612 DN 
0273 FILL =00CB FROMPT 

=00CB INDLO IL LEFT 060F LOOP! 
0619 LOOP? =0002 LTLIM 

0638 OUT z006A RAMTOP 062C RIGHT 
0054 ROWCRS 20025 RTLIM 


=0058 SAVMSC 


=0278 STICKO =0002 TOPLIM 


=00CD TOPNT 


Stick up? 
no 
reached top? 


ROWCRS = TOPLIM 
ROWCRS ( TOPLIM 


no, up one 
stick down? 
no 


reached bottom? 


ROWGRS )s BOTLIM 
down one 

Stick left? 

no 

reached left side? 


yes, skip 

COLCRS ( LTLIM 

one right move 
stick right? 

no 

reached right side? 


COLCRS )s RTLIM 
one nove right 
Back to Basic 


Machine Language Programming 


by Stan Ockers 


#4 Indirect Indexed Addressing 

This session introduces a powerful addressing mode especially useful in mov- 
ing lots of memory around. In the process we will learn how to write the program 
of problem #3 without having it modify itself. 

Rather than refer to an address directly we are going to refer to it INDIRECTLY 
by refering to another address (two bytes actually). The two bytes making up the 
indirect address must be located in zero page. We will use $00CB and $00CC. To 
further complicate matters we will tack on an index which must be Y. The instruc- 
tion written LDA ($00CB),Y reads ‘load the accumulator indirect modified by Y' 
and has the following meaning: Get an address by using the number in $00CB as 
the low byte and $00CC in the high byte. Add to it the value of Y and use that ad- 
dress as the one from which to fetch a number and put it in the accumulator. 

Why all this round-about-ness? The power comes because it's easy to modify 
the zero page location and not change our program while doing so. Consider 
listing #1 which is a reworking of our ‘fill screen with A's' program. Use ‘Hexpoke’ 
(Dec.-Jan. issue) to try it. Notice that after setting up our indirect address with the 
location of the screen (upper left corner). We use Y to successively fill 256 bytes. 
The high order byte of our pointer is incremented and Y goes through another 256 
iterations until 4 pages are filled. 

There are eight instructions which use the indirect indexed addressing mode 
but the ones we will use most often are: 

LDA (IND), Y with op-code B1 
STA (IND), Y with op-code 91 

Another good use for the indirect indexed instructions is in moving the 
character set from ROM to RAM. You must do this if you want to change some 
characters. The character set starts at $E000 and is 1K long (4 pages). One way to 
create room for the character set is to put it at the very top of memory and fool the 
Atari into thinking there is less memory than normal. This is necessary because 
the display data is normally placed highest in memory. In fact it's possible for 
display data to overide the top of memory in some cases. i 

Location $006A (106 decimal) tells the Atari how many pages of memory are 
available. If we drop this by 5 pages and then go back up one page to insert our 
character set, the set will start on a 1K boundary (a requirement), and space is 
available for any display overflow. You must remember to give a graphics mode 
command (e.g., GR. 0) after this process to re-establish the display list and data 
Location 756 (decimal) must also be POKEd with the page location of the new 
character set after any graphics mode command, (POKE 756, PEEK(106) + 1). If any 
PM graphics work is done, remember that RAMTOP is no longer on a 1K boun- 
dary. 


110 REM %3 MOTIE 33 

120 REM 4} 5.0. 2/83 M 

130 REM tí FROM GAME BY 83 

140 REM (RAL OGLESBY D 

150 REM 11311312:221321112111 

Tae 1* THIS GAME WILL NOT FIT IN 1 
160 DIM 6M5í11),MMS(CII) ,GN$ (38) MN S (SS 
) , AP5(11), YP5(11), BULD, L$5(49),V15(21 
),V2919), I115(11), 125611) 

170 REM Gardian offset into moves list 
180 RESTORE 190:FOR Jsi TO 11:READ Ab 
MS(J,J)=CHRS(A):NEXT J 

190 DATA 1,5,9,13,17,20,26,29,32,36, 38 
200 REM Motis offset into moves list 
210 RESTORE 220:FOR J=1 TO 11:READ AN 
M$CJ, JJ CHRS CA): NEXT J 

ie DATA 1,5,10,15,20,24,33,37,42,41,5 


230 REM Allowable Gardian next moves 
240 RESTORE 250:FOR J=1 TO 38:READ A:6 
N$(J,J}=CHRS(A) NEXT J 
250 DATA 1,2,3,11,2,4,5 
5,6,11,5,7,11,4,6,7,8,? 
,11,7,9,10,11,8,10,11 
260 REM X positions of moves 

270 RESTORE 280:FOR J=1 TO 11:READ A:% 
P5$(J,JUsCHR$(AJ:NEXT J 

280 DATA 20,15,20, 25, 15,20, 23,49,20,25 


20 

290 REM Y positions of move 

300 RESTORE 310:FOR J=1 TO d READ A:Y 
P$(J,J)=CHRS(A) :NEAT J 

310 DATA Pe BR ee Si ee RA 

320 REM Allowable Motie next moves 

330 RESTGRE 340:FOR J=1 TO 55:READ A:M 
N&(J,J)=CHRS(A): NEAT J 
340 DATA 1,2,3,11,0,2.4,5,11,0.1,3,5,1 
Tcu E LET anger E 


350 DATA 3,5,9,11,4,5,8,10,11,5,7,9,10 
,11,5,8$;8,10,11,7,9,9;11] 

380 REM Warp subroutine #1 

390 RESTORE 400:FOR J=1 TO 21:READ AN 
15(J, JU sCHRS (A: NEXT J 

400 DATA 104,162,0,172,193,2,189,194,2 
do ee 


410 REM Warp subroutine #2 

420 RESTORE 430:FOR J:1 TO 19:READ A:W 
48CJ, JU sCHRS(A): NEXT J 

430 DATA 104,162,7,172,200,2,189,193,2 
,152,194,2,202,16,247,140,193,2, 98 

440 REM Lanes 
450 L$=" (IA AULUS cue zx gëf 
PN LK “ATT Ft 

480 REM Draw warp screen 

470 GRAPHICS 10:R-INTCRBND(COJET6)516:RE 
STORE 480:FOR I=1 TO 8:READ A:POKE 704 
+] A+R: NEXT I 

460 DATA 2,4,6,8,6,4,2,2 

490 Q=1: FOR 120 TO de COLOR Q:%=]:Y=]% 
i:PLOT X,Y:DRAVTO 79-X,¥ FLOT X,Y+1:0R 
AWTO 719-K, Yel :DRAWTO 79-%,190-Y 

500 DRAWTO X,190-Y:PLOT 19-X,190-141:D 
RAWTO X,190-Y«1:DRAWTO X,¥:0=0+1:1F Q) 
& THEN 0:1 

310 NEXT I 

520 REM save pointers, lower memory 
530 LOSAV-PEEK(S60) :HISAV-PEEK (361) : PO 
KE 106, PEEK(106)-32 


Y= 
I: 


OCKERS' MOTIE 


e GOSUB 1960:REM Change character se 
550 GOSUB 1190:REM Directions-selectio 


ns 
955 REM I$ holds screen configuration 
560 I5z"ggtgtittitt" 
570 REM random free position for Motie 
586 R=INT(RMD(0)49)+2:1F Bei THEN 580 
590 I5(R« 1, R1) CHR (109) :MOTN=R 
600 CURN=5 :LCOL=32 :MCOL=182 : GCOL=246 :B 
KC0Lz9 : TURN=0 
610 GOSUB 1560:REM draw galactic map 
620 REM Choose Guardian move 
630 IF STRIG(0)=0 THEN 630 
640 GOSUB 1780 
650 IF 20237 THEN 630 
660 GNUM=CURN: POSITION X,Y:? $6;' 56" :R 
EM %& are in inverse char. line 660 
$70 IF STRIG(0):0 THEM 670 
660 MFLAG=1 
690 GOSUB 1780:J=0 
700 IF Z=165 THEM POSITION X,Y:? #6;°% 
&":MFLAG=0:60TO 630 
710 IF Z¢)35 THEN 690 
120 MFLAG=0 
130 RsASC(GMS (GNUM+!)) 
740 K=ASC(GNS(R+J)):1F Keil THEN 690 
750 IF CURNOK THEN J=J+1:GOTO 730 
760 X=ASC(RPS (GNUM+1)) : Y2ASCCYP S (GNUM+ 
IJJ:POSITION. X,Y:? $6;" 8$": I$0GNUM* 1,6 
NUM+1)="8" 
720 X=ASC(XPS(CURN+1)) : YSASCCYPS (CURN+ 
1}):POSITION X,Y:? 86;"4&" : IS(CURNS1,C 
URN DN 
780 REM Check for Guardian win 
790 POKE 77,0:IF I5z"£gtiggtgttt" OR I 
iz"Higlgnitgi" OR I5z"Hiitiégggn" TH 
EN 1450 
800 REM Check for 3rd repetition 
810 IF 1$(}128 THEN REPT=0:G0TO 830 
820 REPT=REPT+1:1F REPT=3 THEN 1490 
ch 1253115: 1155I$ 

0 REM Warp and redraw map 
$50 GOSUB 1700:GOSUB 1560 
d IF PFLAG=1 THEN GOSUB 1100:GOTO 10 


870 FOR Js1 TO 6:FOR Ks15 TO 0 STEP -1 
:POKE 711, MCOL+K:SOUND 6,230+K,10,10:5 
OUND 1, 240- K,10,10:F0R Lei TO 3 
880 NEXT L: NEXT K:NEXT J:50UND 0,0,0,0 
‘SOUND 1,0,0,0 
890 REM Computer chooses Motie move 
900 J=INTIRND(0)43):R=A5C(MM5(MOTN+1)) 
910 K=ASC(MNS(R+J)):IF Ks11 THEN J=0:6 
0TO 910 
920 IF [s="##8egqtmtgt" THEN K=10 
930 IF 1$="8€8#8gqg¢mé" THEN K=10 
940 IF [$="#8888qqqtm" THEN K=9 
950 IF [$="###g#g#@gmt" THEN K=10 
960 IF I5z"igifigingtt" THEN K=10 
976 IF MOTN=1 AND 18(1,1)="#" THEN K 
980 IF MOTN=2 AND I$(1,1)="#" THEN K 
990 IF MOTN=3 AND I$(1,1)s"8” THEN K 
1000 IF [$="#8#88#qqgmt" THEN K=5 
1010 IF [$="##8gt@mggt" THEN K=5 
1020 X=ASC(XPS (Kel)): VeASC(YPS(Ke1) : L 
une X,Y,2:IF 2035 THEN J=J+i:GOTO 9 


l 

1030 POSITION X,Y:? 96;"'(*: X-ASCCXPS( 

MOTN+1)):Y=ASC(YPS(MOTN+1)): POSITION X 
Y: #6;"#$":REM “( ARE IN INVERSE 
1040 15 (MOTN«1, MOTNe1 ert": Iäiftsl. Kel) 


10 


d 
d 
0 


z"n":MOIN-K 

1050 REM Check for Motie win 

1060 IF MOTN=0 THEN GOTO 1490 

1070 TURNSTURN«1:IF TURN) !4 THEN 1490 
iC MEE 15,11:? #6;15-TURN;" TUR 


NS 

1090 GOTO 630 

1100 IF STRIG(0)z0 THEN 1100 : 

1110 POSITION 25,11:? $6;" Motie turn" 
:MFLAG=2: CURN=MOTN 

1120 GOSUB 1780: Jet 

1130 IF 2033 THEN 1120 

1140 R=ASC(MM$ (MOTN+1)) 

1150 K=ASC(MNS(R+J)):1F K=11 THEN 1120 
1160 IF CURNOK THEN J=J+1:G0TO 1150 


1170 RETU 


RW 

1180 REM The 'ot' in line 1190 are in 
inverse 

1190 PFLAG=0:GRAPHICS 18:POSITION 7,4: 
? &6;"MotIs":POSITION 2,6:? #6; “SELECT 
-Í Player ": POSITION 0, $ 

1200 POSITION 1,8:? #6;"OPTION-instruc 
tions":POSITION 7,10:? #6; "START" 
1210 FOR J=i TO 30: NEXT J:POKE 53279,8 
:JF PEEK(53279)s3 THEN GOTO 1260 

1220 IF PEEK(53279)=5 AMD PFLAG=0 THEN 
PFLAG=1:POSITION 9,6:? $6;,"2 Players" 
:6010 1210 

1230 IF PEEK(53279):5 AND PFLAG=1 THEN 
PFLAG=0: POSITION 9,6:? 86;"1 Player " 
1240 IF PEEK(53279)=6 THEN RETURN 

1250 GOTO 1210 

1260 GRAPHICS 0:POKE 752,1:? :? :? " 

3 Guardian starships protect the" 
1270 ? "Human Empire from attack by a 
Motie" 
ite ? “vessel. 
pia 
n ; "the computer moves the Motie s 


If there is only one 


Hoi ) "Two players alternate using st 
1310 20" 
e" 

Séi 1 *"downscreen while the Motie ves 


5 
1330 ? "can move any direction along t 


The Guardians can't mov 


E 

1340 ? "indicated starship lanes." 
1350 ? "Moves are to adjacent empty po 
sitions" 
1360 ? :? * 
je is" 

1370 ? "trapped (has no legal moves)." 
1380 ? "The Moties win if 15 turns hag 


H 
1390 ? "elapsed, if there is a 3-time" 
1400 ? "repetition of position or if t 


m5 ? "vessel reaches the lowest posi 
"PM :3 "PRESS KEY TO START":POKE 76 
1430 IF PEEK(764)=255 THEN 1430 

1440 GOTO 1190 

1450 GRAPHICS 18:POSITION 2,2:? #6; "TL 
e Motie Vessel":POSITION 5,3:? #6; "CAN 
NOT MOVE" 

i REM Al] strings in 1470 in invers 


1470 POSITION 3,5:? #6;"The Guardians’ 
:POSITION 5,6:? 46; "HAVE SAVED" : POSITI 


Guardians win if the Mot 


ON 2,7:? #6;"the human empire" 

1480 POKE 764,255:60T0 1530 

1490 FOR J=1 TO 300:NEXT J:GRAPHICS 18 
: POSITION 3,3: t6; "THE MOTIES":POSITI 
ON 3,4:? #6;"have conquered" 

1500 REM ist and last strings in 1510 

in inverse char. 

1510 POSITION 3,5:? t6;"THE GUARDIANS" 
:POSITION 2,?:? #6 "TRE HUMAN EMPIRE": 
— POSITION 4,8:? #6:"is doomed!” 

1520 POSITION 1,10:? #6;"again?-PRESS 

key" :POKE 764, 255 

1530 IF PEEK (764)= 255 THEN 1530 

1540 GOTO 550 

1550 REM Subroutine to draw galactic a 


ap | 
1560 GRAPHICS 1:POKE 756,CSPAGE:DLzPEE 
K(560)+PEEK(561)8256:FOR J=DL+7 TO DL+ 
15:POKE J,5:NEXT J 

1570 J:J«1: IF. PEEK(J) ()65. THEN 1570 
1580 FOR K=0 TO 2:POKE DL+20+K,PEEK( J+ 
K) :WEXT K 

1585 POKE 708,LCOL:POKE 109, 86:POKE 71 
D. GCOL: POXE 1i ROL : POKE 712, BKCOL 


1590 POKE 67,0:FOR J=3 TO 7 STEP 2: FOR, 


K=17 TO 24:POSITION K,J:? i6; "+" : NEXT 
NEXT J 


K:NEX 
1600 FOR Js4 TO 6:POSITION 15,J:? t6;" 
)":P0SITION 25,J:? €6;°)": NEXT J:FOR J 
=2 TO 8: POSITION 40,J:? #6;")":NEXT J 
1610 POSITION 18,4: } #6; " d : POSITION 2 
4: 6; "8": POSITION 18, 6: ? $6;"1* :p0 
SITION 23, 6:3 #6;"," 
1620 POSITION 18,2: 9 #6; "Ir POSITION 2 
342 "t.t POSITION 18, 8:2? #6;",":P0 
SITION 23,8:2 #6; "3" 
1630 FOR j: 1 TO 11:X=ASC(XP$(J)) :YeASC 
(YP$(J)):POSITION X,Y:? #6;"#$": NEXT J 
1640 POSITION 5,0:? t6;"Motie Vorld":P 
05ITION 5,11:? t6; "Human Empire” 

1650 FOR J- 1 TO il | 
1660 IF 1$(J,J)s"g" THEN X=ASC(XP$(J)) 
AC ASCLYPS (2) : POSITION Lin: sin 
1670 IF I$(J,J) "m" THEN é ASC(XPS(J)) 
: =ASC(YPS (J): POSITION X,Y:? t6;"'(": 

REM '( ARE IN INVERSE CHAR. 

1680 NEXT J:RETURN 

1700 GRAPHICS 10:POKE 560,LO0SAV:POKE 5 
61,HI SÀV: VI ADR(WIS) :W2=ADR(W2$} 

1710 R:INT(RNDCOJI6)116: RESTORE 480:F 
OR I=] TO B:READ A:POKE ?04*1, A«R: NEXT 


I 

1720 FOR J=150 TO 50 STEP -1:A=USR(W1) 
1730 GOSUB 1770:NEXT J 

1740 FOR J=50 TO 150:K=K+D:A=USR(W2) 
1750 GOSUB 1770:NEXT J 

1760 SOUND 0,0,0,0:50UND 1,0,0,0:SQUND 
2,0,0,0:RETU RN 

1770 SOUND 0.3,4,12:SOUND 1,J+2,12,12: 
SOUND 2,J44, i0, é : RETURN 

ek REM Move cursor subroutine (stick 


1780 XsASCCXPS(CURN« 1) ) : Y=ASC(YP$ (CURN 
*1)): LOCATE. X, Y ,Z:LOCATE X+1,¥,22:P05] 
TION X,Y:? $6, CHR (33) ; CHR C34] 

1790 FÜR J=i TO 20 

1800 IF MFLAG=1 THEN SOUND 0,150+J,10, 

10:50UND 1,170-J,10,10:NEXT J 

1810 POSITION X,Y:? #6; CHR$(Z) ; CHR$ (ZZ 


) 
1820 S=STICK(0) 
1830 IF (5214 AND Y)3) OR (5:14 AND X= 


20 AND Y=3) THEN Y=Y-2 

1840 IF (S=13 AND Y(7) OR (3:13 AND X= 
10 AND Y=7) THEN Y=Y+2 

1850 IF 5211 AND X)15 AND Y)1 AND Y¢9 
THEN X=X-5 

1860 IF Kat AND X(25 AND Y)1 AND Y(9 T 


H 

1670 FOR "Js 1 TO II ASCiXPSCQIJIJOX 
THEN NEXT J 

1880 IF ASC(YP$(J,J))()Y THEN NEXT J 
1890 CURN=J-1 

1900 IF 5TRIG(0)()0 THEN 1760 

el SOUND 0,0,0,0:50UND 1,0,0,0:RETUR 


1920 A $t This subroutine reserves 5 
pages $ 
at the top of RAM, moy 


1930 im ii 

es the R 

1940 REM %& character set from ROM and 
changes $t 

1950 REM $3 the characters ! thru , 38 

1960 DIM MC5S$(42):RESTORE 19706:FOR J=1 
TO 42:READ A:MCS$(J,J)=CHRS(A) : NEXT J 

1970 DATA 104,169,0, 133, 203,133,205 ,16 

dre ,133,204,165, 106, $6, 233, 5: 133, 106 


4 
1960 DATA 105,1,133,206,162,4,160,0,17 
7,203,145,205, 200,208, 249,230. 204, 130, 
206,202,208, 242,96 
1990 A-USR(ADR(MCSS) ) :CSPAGE=PEEK( 106 ) 
+1: 652 256 1CSPAGE 
2000 RESTORE 2010:FOR J=C5+8 TO C5+103 
“READ A:POKE J,A:NEXT J: RETURN 
2010 DATA 0,0,2,9,39,9,2,0 
2020 DATA 0,0 16,96,120,0. 
2036 DATA 10, 2,152,134,37,10 
2040 DATA 160 8,38, 166,868,160 
2050 DATA 15, ,247,55,61,15 
2060 DATA 240 „255,95,220,124,2 


40 
ef DATA 60,220,215,221,223,220,220,6 


2080 DATA 60,55,215,119,247,247,55,60 
2090 DATA 0,2,1,2,1,2,1,0 

2100 DATA 2,1,8,4,32,16,128,64 

2110 DATA 0,0,0,24,0,0,0,0 

2120 DATA 128,64,32,16,8,4,2,1 


? 
i 
j 
j 
H 


ERACE 


Next meeting: 
295 Foxtail Dr.; Eugene, OR. 


7.30 pm, April 5, 1983. 
687-1133. 


10 2 "J*:DIM As(5),85(5), 6$(5),D$(5),A 
N$(1),29(5 ) :Z9s" 

20 POKE 710, ME POKE 709,14:? :? ," HU 
NGRY HAWKS ":? :? "THIS I5 A ONE OR TV 
O PLAYER GAME." 

25 ? :? "EACH PERSON CONTROLS A HAWK : 
ion "PLAYER 1 CONTROLS HENRY CHICKEN 


n ? „PLAYER 2 CONTROLS HARRY HAWK-EYE 
:? "HENRY IS BLUE. & HARRY IS BROWN 


30 POKE 752,1:? :? "PLAYER 1 USES JOYS 
TICK 1":? "PLAYER 2 USES JOYSTICK 2":? 
7 "USE THE JOYSTICK TO HOVE SIDEWAYS 


ss ? "AND PRESS THE FIRE BUTTON TO SWO 
OP":? "DOWN ON THE PREY." 

40 9 :? "PRESS THE START BUTTON TO STA 
RT GAME": ? is " by SYDNEY .H.BROWN  - 
-  COMPCO 

70 IF PEEK (53239) (96 KN, 70 

1$ Ais" wen ":Bsz* “Can wya ":D$ 
=" ypz ":POKE 106, PEEK (106) -2 

80 GRAPHICS 2:POKE 710,0:POKE 708,14:F 
OKE 709,40:POKE 711,222 

90 ? 86," ANIMAL":? #6; "frog 3 poi 
nts":? $6;"rabbit 3 points":? #6;"t 
dän i point":? #6;"“chicken — Z po 
ints" 

91 ? #6: “grub 2 points" 

101 POKE 110. 0:POKE 168, 14:POKE 709,40 
a 122: À= PEEK(106)8256: FOR B=0 


TO 5 

102 IF B)431 THEN READ D:POKE A«B,D:NE 
XT B:GOTO 110 

106 POKE A«B,PEEK(57244«4B) BEAT B 
EE 0,8:? #6;"PRESS START BUT 


111 IF PEEK(S3279) 086 THEN 110 

112 POSITION 0,0:? €6;")":POXE 710,140 
:POKE 756 ,PEEK(106) 

190 Vi|=l:V2=1:Hl=1:H2=14:01=0:02=0:51= 
0:52=0:NA=0 

195 POKE 709,142:POKE 711,24:POKE 712, 
128:POKE 710,200:POSITION 0,0:? #6; “sc 
orel=0 scorez=Q" 

199 GOSUB 556 

Ar oad :IF 5s11 AND H1)0 THEN H 


201 IF S=? AND Hi(15 THEN Hi=Hi+i 

202 IF STRIG(O)=0 THEM Ci=1 

205 POSITION H1,V1:? #6,A3; 

210 ON R GOSUB 500,510,520,530,540 

223 IF Gel THEN GOSUB 400:60T0 235 
224 IF C2=2 THEN GOSUB 450:60T0 235 
EE S=11 AND H2)0 THEN H 
226 IF 5:7 AND H2(15 THEM HZ-H2*1 

227 IF STRIG(1)=0 THEN cl 

230 POSITION H2,V2:? $6,C5, 

235 ON R GOSUB 500,510,520, at, 340 

248 IF sl THEN GOSUB 300:60T0 260 
249 IF Ci=2 THEN GOSUB 350:60T0 260 
Ht: a AA SIF 5:11 AND H1)0 THEN H 


251 IF 5:7 AND H1(15 THEN Hi=H1+1 

252 IF STRIG(0)=0 THEN Ci=1 

255 POSITION Hi,V1:? #6;B3;;; 

260 ON R GOSUB 500,510,520,530,540 

213 IF CZ=1 THEN GOSUB 400:60T0 285 
274 IF C2=2 THEN GOSUB 450:G0TO 285 
2 Se STI UI IF 5211 AND H2)0 THEN H 


no 


BROWN'S HAWKS 


216 IF 5:7 AND H2(15 THEN H¿=H2+1 

277 IF STRIG(1)=0 THEN C221 

280 POSITION H2,V2:? #6,D$; 

285 ON R GOSUB 500,510,520,530, 340 

297 IF Cl=1 THEN GOSUB 300:GOTO 210 
298 IF C1-2 THEN GOSUB 350:60T0 210 
299 GOTO 200 

300 POSITION H1,V1:? #6,2§:Vil=Vi+1:PO0S 
ITION H1,V1:? $6;AS: IF Vi(8 THEN RETUR 


N 
305 C1z2:LOCATE H1«2,V1*1,21:IF Z1232 
THEN RETURN 


310 À6-1 

350 POSITION HI Vi:? £6;25:V1zV1-1:P05 
ITION HI. Vi:? #6;B$:COLOR Z1:PLOT Hitz 
Viel: COLOR 32:PLOT Hie2,Viez:IF VII) 
THEN RETURN 


355 C1z0:IF A(()1 THEN RETURN 
336 SOUND 0,255,10,14:COLOR 32:PLOT Hi 
+2,Vi+1:FOR W=1 TO 21:NEXT W:SOUND 0,0 


0,0 
359 S1z514A5:POSITION 7,0:? $6,51;:AC- 
0:60T0 550 


400 POSITION H2,V2:? $6;29:V2-V2*1:P05 
ITION H2,V2:? RdHT: V2(8 THEN RETUR 


N 
405 C2=2:LOCATE H2+2,V2+1,22:1F 22232 
THEN RETURN 


410 AC=2 
450 POSITION H2,V2:? #6,28:V2=V2-1: pos 
ITION H2,V2:? De COLOR Z2:PLOT H2+2 
Dal: COLOR. 32: PLOT H2+2,V2+2:1F V2) 
THEN RETURN 
455 C2=0:1F ACOZ THEN RETURN 
456 SOUND 0,123,10,14:COLOR 32:PLOT H2 
+2,V2+1:FOR W=1 TO 21:NEXT W:SOUND 0,0 


0,0 

459 52=52+A5:POSITION 17,0:? #6;52; :AC 
=0:G60TO 550 

500 IF AC()0 THEN RETURN 

501 IF X)19 THEN 550 

502 IF FC=0 THEN POSITION X.9:? #6; ANS 
503 FC=FC+1:IF FC/9¢) INTUECIS) THEN RE 


TURN 

504 SOUND 0,255,10,14:F°R W=1 TO 10:NE 
XT W:SOUND 0,0,0,0 
505 COLOR 32:PLOT X,9:X=FC/3 

506 IF X(20 THEN POSITION X,9:? #6; ANS 


: RETURN 

509 COLOR 32:PLOT X-3,9 

510 IF ACOO0 THEN RETURN 

5311 IF 3219 THEN 550 

512 IF X=0 THEN POSITION X,9:? $6;AN*: 
AzY41: RETURN 

513 AXSINT(RND(OI3): IF X322 THEN XX=0 
514 IF XX=i THEN SOUND 0,14,10,10:FOR 
W=1 TO 5:NEXT W:SOUND 0, 0, 0,0 

515 POSITION X-1,9:? &6;" ";: POSITION 
1,9:? 16, ANS: Il: RETURN 
520 IF ACO THEN RETURN 
521 IF X)19 THEN 550 

$22 IF X=0 THEN POSITION X,9:? #6; ANS: 
X=X+1: RETURN 

525 POSITION X-1,9:2 46;" "; : POSITION 
1,9:? 88; ANS: Y:140. 45: RETURN 

530 IF ACO THEN RETURN 

531 IF X)19 THEN 550 

532 IF X=0 THEN POSITION X,9:? $6;AN*: 
K=X+1:RETUR 


N 
533 SOUND 0,7,8,10:FOR Wel TO 3:NEXT V 


SOUND 0,0,0,0 


|2 


535 POSITION X-1,9:? #6;" ";:POSITION 

X,9:2 #6;ANS:X=X+0.5:RETURN 

540 IF AC00 THEN RETURN 

541 IF DI THEN 550 

542 IF X=0 THEN POSITION X,9:? #6;ANS 

X=X+1 : RETURN 

545 POSITION X-1,9:? 46;" ";:POSITION 

33 56; AE: Bea $ RETURN 

350, SOUND 0,0,0,0:NÀ-NÀ«1:IF NA=51 TH 

551 POKE 77,0:FC=0:COLOR 32:PLOT 19,9 

X=0:AC=0:R=INT(RND(0)%5)+1:0N R GOTO 

56,552,553,554,555 

552 AS=5:POKE 708,10:ANSz"|" : RETURN 

553 SOUND 0,255,8,14:AS=1:POKE 708,22 

ANS="J" RETURN 

554 AS=2:POKE 708,222:AN5z" "" RETURN 

555 SOUND 0,7,8,8:AS=2:POKE 708,56:AN 
z* "RETURN 

556 AS=3:POKE 708, 188:AN$="C" : RETURN 


600 POSITION 6,5: d #6;"THE END":? Aí 
2 $6;" press start button":? uo? #6; 


b \ J e 
605 IF PEEK(53279) 6 THEN 605 


609 GOTO 111 

1000 DATA 28,42,255,227,247,42,65, 162 
6,15,31,61,48,32,64,0, 48, 120, 252,222, 
34,2,1,128 

1005 DATA 0,0,0,3,7,79,62,24,0,0,128,. 
24,240,121, 62,140 

1010 DATA 0,4,10,63,126,252,226,121,0 
0,30, 135,144, ,124,130,97,0,0,0, 48,123, 


54, 72,13 
1020 DATA 4,11,4,252,124,56,8,20,10,1 
,21,142,138,206,254,124 


Game Writers’ Column 


by Jon Atack, Eugene A.C.E. 


Welcome back to the GAME WRITERS’ COLUMN. This month, due to a number 
of requests, we’ll go over how to convert SynAssembler source code to Atari 
Editor/Assembler source code, and vice versa. | haven’t used the Atari Assembler 
for some time now and am not overly familiar with it, so if Um wrong about a con- 
version, please let me know so | can publish the correction. 


Here is a list of the SynAssembler opcodes, and their equivalent opcodes on ` 


the Atari Assembler: 


AG daaa...ad 

00100 .AS “THIS IS AN ASCII STRING" 
The AS daaa...ad directive translates the string of characters into their ASCII 
bytes. The string can contain any printing character and can be of any length. 

| don't think there is any equivalent command on the Atari Assembler (I'm not 
positive though, so ask someone who knows just to be sure) except to translate 
the bytes yourself and to use a .BYTE directive. Example: .BYTE 
$34,$25,$26,$3F,$21 etc. 


.AT daaa...ad 
00100 .AT “THIS IS AN ATASCII STRING" 


The .AT directive is the same as .AS except it translates into ATARI ASCII. 


.BS exp 
(any valid number or expression) 
00100 .BS 44 
00200 .BS $1C 
Reserves a block of exp 


bytes at the current location in the program. The expression just specifies the 
number of bytes to advance the location counter. 

There is an equivalent opcode for the Atari Assembler, but | don't have the Atari 
manual and | haven't been able to find it. If there are only a few bytes you want 
reserved, then just use a .BYTE 0,0,0,0,0,0,0,0,0,0,0 for the number of bytes you 
want. 


.DA expression or label (two bytes, LSB first) 

.DA #exp or label (one byte, LSB of exp or label) 

.DA /exp or label (one byte, MSB of exp or label) 
The .DA data directive creates a constant or variable in your program. Here are 
some examples: 

4000: 64 00 00100 .DA 100 

4002: 64 00110 Dé #100 

4003: 00 00120 .DA /100 

4004: FF 3B 00130 .DA LOOP1- 

4006: FF 00140 .DA #LOOP1 

4007: 3B 00150 .DA /LOOP1 
Equivalent directives on the Atari Assembler are .BYTE (for .DA #exp), .DBYTE (for 
DA exp), or . WORD (which outputs using MSB-LSB, instead of the normal LSB- 
MSB.). 


.EN 

00100 .EN 
Tells the SynAssembler where to stop assembling the source program. .EN is 
purely optional if you want to assemble the entire program. 

| think the equivalent for the Atari Assembler is .END. 


label .EQ 
expression 


Defines the label to have the value of the expression. 
00100 PMBAS .EQ $D400 
00110 HPOS1 .EQ 53248 
00120 STICK .EQ $278 
The equivalent Atari Assembler directive is =. 
00100 PMBAS = $D400 
00110 HPOS1 = 53248 
00120 STICK = $278 


label HS aabbccddeeff... 

DATA1 .HS 3400AA4F039B001A 
Stores the string of hex digits at the current location, two digits per byte. There 
must be an even number of hex digits in the string. 

There is no equivalent command on the Atari Assembler except to use the 
BYTE directive. Example: DATA1 .BYTE $34,0,$AA,$4F,$3,$9B,0,$1A 


.LI OFF AND LI ON 

00100 .LI OFF 

05680 LI ON 
These directives turn the assembly listing on and off, and can both be put 
anywhere in the program. The program assembles much faster without a listing, 
although the SynAssembler assembles so fast it usually makes no difference. 

The equivalent Atari Assembler directives are .OPT LIS and .OPT NOLIS. 


.IN [file name] 

00100 IN *D:SETUP" 

00110 IN *D:PART1.SRC" 

00120 IN “D:SCORING” 

Causes the specified source file to be included in the assembly at the current 
location of the program counter. The program in memory at the time the ASM 
command is typed is called the “root” program. Only the root program may have 
IN directives in it. 

The .IN directive is useful for assembling very large programs which cannot fit 
in memory all at once. It is also very useful for connecting a library of subroutines 
with the main program. 

| don't think there is an equivalent command for the Atari Assembler. 


i 


.OR 
expression 


00100 .OR $4000 

02160 .OR START + $1C00 
This sets the Program Origin and the Target Address to the value of the expres- 
sion. Program origin is the address at which the object program will be executed. 
Target address is the address at which the object program will be stored during 
the assembly. The .OR directive sets both of these addresses to the same value, 
which is the normal way of operating. 

For the Atari Assembler use * =. Example: * = $4000 or * = START + $1C00. 


TA 
expression 


00100 .TA $4C1F 
Used the same as the .OR command, .TF sets only the Target Address at which 
the object code will be stored during assembly. Object code is produced and 
ready to run at the Program Origin, but is stored starting at the Target Address. 
| don't think there is a similar function on the Atari Assembler. 


.TF [file name] 

00100 .TF "D:PROGRAM.OBJ" 
Causes the object code to be stored on a binary file on disk rather than in 
memory. Only the code which follows the .TF directive will be stored on the disk. 

To simulate this command on the Atari Assembler, use the ASM command as 
follows: ASM ,,#D:filename. 


Other miscellaneous changes and differences: 

1. For the SynAssembler, remove all references to "A". For example, in the in- 
struction LSR A, the “A” should be removed. The SynAssembler assumes the “A” 
reference automatically. Likewise, the “A” is required for similar instructions on 
the Atari Assembler. 


2. SynAssembler has no multiply or divide, so these must be put in by long 
hand. 


3. To get HI and LO bytes, make the following changes: 


Atari Assembler LDA #PLACE/256 high byte 
LDA #PLACE/255 lo byte 

SynAssembler LDA /PLACE high byte 
LDA #PLACE lo byte 


4. Finally, don’t forget to change all the Atari directives to the above 
SynAssembler equivalents (or vice versa.) 


5. Local labels on the SynAssembler (labels starting with a period, such as .1 or 
.23) must be changed to the regular Atari label format of capitals and numbers. On 
the SynAssembler, local labels can be used over and over (instead of making up a 
new name for every label) as long as they aren’t used more than once between 
normal labels. 


| hope this helps in converting source programs from one assembler to the 
other. Be watching for next month’s column on machine language sound techni- 
ques, with some mind-blowing example programs in BASIC and machine 
language. Also, for you game-players, be ready for some hot new games coming 
out from Atari, Datasoft, and Synapse Software in the next few months. | am 
presently in the middle of a new game for Synapse that should hit the market 
sometime this summer — more on this in next month’s column. Until then, good 


luck and great game-making! 
— Jon Atack 


FLASH! 


The ATARI Service Contract, reported several 
months ago in ACE is now available through your 
localAtari Service Station. Costs $45 a year for 
the 400 and $120 for the 800. It includes 
coverage onall Atari made equipment -- disk 
drives, joysticks, cassette, printer, etc. Your 
computer must beworking at the time you sign up. 


Hi-Res is a new magazine for the Atari 
looking for writers. Longwood Business Center, 


755-B V. San Lando Springs Dr., Longwood, FL 
32750 
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CALL TO ASSEMBLY 


from S*P*A*C*E by Tom Newman 
How to use pictures created with MICRO-PAINTER in your machine language pro- 
grams (part two). 


In part one of this article, which appeared in volume two issue 9 of the Space 
news letter (September 1982), | shared a program with you | had written to load 
MICRO-PAINTER files into a specified area of RAM, and display the pictures on 
the television screen. In this the second of three parts, | will show you how to 
compact the picture data and automatically save the condensed information to 
your disk drive for future use in a program. The first program was written with 
ATARI’S assembler/editor cartridge. The program included in this article was writ- 
ten with the SYNASSEMBLER from SYNAPSE SOFTWARE. The 
SYNASSEMBLER is as much as fifty times faster than the assembler/editor car- 
tridge, and supports all of the 6502 opperations, which the cartridge does not. 
Conversion: between the two assemblers should not be difficult for anyone with 
even minimal experience in the use of such programs. Eg: 


ATARI SYNASSEMBLER 


lr een ———Á————— ge EN -.OR 
-BY IE PRO Se EE HS A02D3E 
BHIE STRING sd sd ee ae ROPA Xo rk o d —-.AS "STRING" 
Sie uisu Ru d d xao AMEN a SST IS aire GÉ RACK I ORO Dawe Ey ICA DAR TES —.EQ 


This program was written for a 32K machine with at least one disk drive. 


In any picture created by the computer, there will always be patterns repeated 
in either a vertical or horizontal direction. This program takes advantage of this 
fact and creates an inter-leaved table of data values and the number of times they 
are repeated, using a vertical scan of the screen refresh area. | have found through 
experimentation that a vertical scan results in the most efficient use of this type 
program. As explained earlier, MICROPAINTER uses antic mode 'E', which is a 
four color single line resolution mode. Each line contains forty bytes of data and 
each byte represents four pixels. Each pixel uses two bits to define its color and 
shape: 


00 BACKGROUND COLOR 
01 PLAYFIELD 0 
10 PLAYFIELD 1 
11 PLAYFIELD 2 


Since each pixel requires two bits for color definition it is also twice as wide as it 
is high. 


There are a total of 192 lines used to make up the picture, and 192 times 40 
bytes per line equals 7680 bytes. This program should at least cut that in half for 
most pictures and do even better on simpler ones. | have included a couple of 
screens from the DONKEY KONG program my sons are working on to give you 
some idea of what | consider to be an average picture. Screen 1 was reduced to 
3508 bytes, and screen 2 was reduced to 4057 bytes. The un-compaction program, 
which will be presented in part three occupies less than one page of memory, so 
the combination of controlling program and data base can be very cost effective 
in terms of memory useage. Even if you have only one playfield image this pro- 
gram will give you a 'blueprint' of the original image, eliminating the need for disk 
access each time the program is re-run. Now let's examine the program. 


Lines 130 through 290 contain the equate table. The labels of the equate table 
allow us to use words to identify memory locations or values used in our pro- 
grams, which we may have difficulty remembering. The labels also allow the 
assembler to keep track of where in memory things are, so we don't have to 
calculate their locations. 


Lines 330 through 500 contain the initilization program. This is the part of the 
program which sets up all the starting values, such as data locations and counter 
initilization. 


Lines 540 through 1090 contain the main body of the program. The program 
starts by getting the first byte from the screen refresh area and comparing it to 
each sucessive byte in the column. A counter called BLKSIZE keeps track of how 
many bytes have been examined up to a maximum of 256. When a mismatch oc- 
cures or a count of 256 has been reached the program jumps to a subroutine call- 
ed SAVEBLK and starts building the data base. SAVEBLK saves the data value 
first and then the number of repetitions indicated by BLKSIZE in encoded form. 
Any byte examined will be repeated at least once, but no more than 256 times. A 
single byte will hold numerical values from 0 to 255. Since nothing will ever be 
repeated zero times a literal use of the counter contents allows only 255 values to 
be stored. The answer to this inefficiency is found by complementing each bit of 
the the counter value. It is the complemented byte you will find in the table. The 
un-compacting program uses a counter which counts to zero, as an example: 


$00 XOR $FF equals $FF, $FF counts to zero in one step, so $FF represents 1. 


$FF XOR $FF equals $00, $00 counts to zero in 256 steps, so $00 represents 256. 


The 'X' register is used to keep track of the line count. When it has reached 192 
the column counter (the 'Y' register) is incremented and the home address is 
restored to the indirect buffer pointer. This is necessary because forty had to be 
added to buffer address each time a byte in the column was examined, but the 
starting address of each column is sequential. After all of screen RAM has been 
examined and the data base is built, the program waits for the user to press 
SELECT and OPTION keys simultaneously. It will then save the data base as a 
binary file using the filename ‘COMPACT.TBL’. 

Line 2000 contains the filename. You can insert any legal filename you like bet- 
ween the quotes. Remember to change this name if you want to save multiple 
compacted pictures on the same disk. 

The created file contains all the proper header information of an ATARI binary 
file, and may be loaded into RAM at $4000 by DOS, or the ASSEMBLER/ EDITOR 
cartridge. 


Lines 1140 through 1230 contain the program which waits for the user to press 
the SELECT and OPTION keys at the same time. The program also expects you to 
hold them down for about 15 second before acting. 


Lines 1270 through 1430 set up the header bytes for the compacted file. 


Lines 1470 through 1540 calculate the table length in bytes, which is needed by 
SIO for the save routine. 


Lines 1590 through 2030 set up IOCB #1 for a byte aligned binary save: 
1. IOCB #1 is closed 1590-1620 
2. IOCB #1 opened for write 1660-1760 
3. IOCB #1 executes the save 1800-1900 
4. |OCB #1 is closed 1940-1960 


In order to make use of this program you must first have the MICRO-PAINTER 
retrieval program assembled into memory. 

Its execution point is at HEX 5F00. Remember to change the filename in the 
program to match the picture filename you are interested in. Now assemble the 
compactor program in this article and execute it at HEX 5CO00. Wait a second, then 
press OPTION and SELECT. Disk drive one should come on and the compacted 
data base will be saved. That's all until next time. If you have any questions feel 
free to call. (206) 1-858-7649 


00010 LI OFF 

20020 OR $5000 

00030 311131113312124111133111111111111 
00040 1 COMPACT ASM 1 
00050 3 NEWSLETTER ARTICLE [PARTZ] 1 
00060 t BY TOM NEWMAN t 
00070 1 NOVEMBER 1982 1 
00080 t S.P.A.C.E. Seattle, VÀ % 
00090 1 H 
00100 f11t1113331:1:3 1:113 13 533 133 3 133 3 1 1 03 
00110 1 EQUATE TABLE 1 


00120 RARERRATARESALERTATE LO E: 


00130 BUFFER — D $F0 
00140 BUFFLO ` Daf 
00150 BUFFHI .£0 fl 
00160 TABLE EQ $F2 
00170 TBLLO EQ $F2 
00180 TBLHI EQ af? 
00190 SAVEY EQ $4 
00200 REF EQ $F5 
00210 HOMELO EQ sfé 
00220 HOMEHI —.E0 $F? 
00230 BLKSIZE D $F8 
00240 COUNT ` .EQ ST? 
00250 HEADER ` DD SFA 
00260 LENLO —.E4 SFC 
00270 LENHI „EQ $FD 
00280 NMIRES —.E0 $D40F 
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00290 CONSOL ` DO $DOIF 
00300 1131211311111311£11311111111131 EL 
00310 1 INITILIZATION t 


00320 TTT OTTELE 


00330 START LDA $550 

00340 STA BUFFLO 

00350 STA HOMELO 

00360 LDA #$6! 

00370 STA BUFTHI 

00380 STA HOMEHI 

00390 LDA #500 

00400 STA COUNT 

00410 STA TBLLO 

00420 STA BLKSIZE 

00430 TAY 

00440 LDA @SFA 

00450 STA HEADER 

00460 LDA €:3F 

00470 STA HEADER«1 

00480 LDX 6500 

00490 LDA $540 

00500 STA TBLHI 

00510 $12213311121112111121231111311111111 
00520 1 PROGRAM BODY $ 


00530 OTTO TL 
00540 BLOCK LDA (BUFFERD,Y 


00550. STA REF 
00560 NEXT INC BLKSIZE 
00570 BNE CONTINUE 
00580 JSR SAVEBLK 
00590 CONTINUE DEX 

00600 BNE SKIPCOLM 
00610 JSR NXTCOLA 
00620 JMP CORRECT 
00630 SKIPCOLM CLC 

00640 LDA BUFFLO 
00650 ADC #528 
00660 STA BUFFLO 
00670 LDA BUFTHI 
00680 ADC #800 
00690 STA BUFFHI 
00700 CORRECT LDA REF 
00710 CHP (BUFFER), Y 
00720 BEO NEXT 
00730 JSR SAVEBLK 
00740 JMP BLOCK 
00750 SAVEBLK STY SAVEY 
00760 LDY $500 
00770 LDA REF 
00780 STA (TABLE) ,Y 
00790 JSR STEPTBL 
00800 DEC BLKSIZE 
00810 LDA BLKSIZE 
00820 EOR tsFF 
00830 STA (TABLE), Y 
00840 J3R 5TEPTBL 
00850 LDA #500 
00860 STA BLKSIZE 


00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
61070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 


01430 


LDY SAVEY 


STEPTBL 


NXTCOLM 


OUT 


RTS 

CLC 

LDA TBLLO 
ADC #501 
STA TBLLO 
LDA TBLHI 
ADC €500 
STA TBLHI 
RTS 

INY 

CPY 428 
BEQ OUT 
LDA HOMELO 
STA BUFFLO 
LDA HOMEHI 
STA BUFFHI 
LDX CH 
RTS 

PLA 

PLA 


LDA REF 
JSR SAVEBLK 


131121253112112121243134131 101213 1113 


1 


t PRESS 'OPTION AND SELECT' 


VAIT FOR USER INPUT 


i 
i 


3115331111311311111211121111111 


USER 


VAIT 


LDA CONSOL 
CMP 4501 
BNE USER 
LDA NMIRES 
AND 6:40 
BEQ WAIT 
INC COUNT 
LDA COUNT 
CMP 4514 
BNE USER 


11311133253331243221121324211512114 


SHEADER SETUP FOR BINARY FILE 1 
1313112331111 1223235211: 122 2 48541212 


LDY $500 

LDA #$FF 

STA (HEADER) ,Y 
INY 

STA (HEADER), Y 
INY 

LDA #500 

STA (HEADER) ,Y 
INY 

LDA #549 

STA (HEADER) ,Y 
INY 

LDA TBLLO 

STA (HEADER) ,¥ 
INY 

LDA TBLHI 

STA (HEADER) , ¥ 


(HIRT OTTO TTT: 


01450 1 ESTABLISH BUFFER LENGTH t 
01460 f1111112312 421: 1 0313 8 1 3 £2 2 0 £03 
01470 SBC #540 

01480 STA LENHI 

01490 CLO 

01500 LDA TBLLO 

01510 ADC #507 

01520 STA LENLO 

01530 LDA LENHI 

01540 ADC #500 

01550 STA LENHI 

01560 *11312131311111121131111111242111111 
01570 1 CLOSE IOCB 41 t 
01580 £f1112311311231:133 21421 1212151211 
01590 LDX #510 

01600 LDA $$0C 

01610 STA $342, X 

01620 JSR $E456 

01630 1t11123121212112311213112112112111 
01640 1 SETUP IOCB #i FOR WRITE I 
01650 11123312112112112122121111212111111 
01660 LDA $03 

01670 STA $342,X 

01680 LDA @FILE 

01690 STÀ $344,X 

01700 LDA /FILE 

01710 STA $345,X 

01720 LDA #$08 

61730 STA $34A,i 

01740 LDA $$00 

01750 STA $34B,X 

01760 JSR $E456 

01770 3123335213131111312111111111111111 


01780 1 GO WRITE THE FILE $ 
01790 SRRAARARSAALARERAIATALS ZARA ATE 
01800 LDA #508 

01810 STA $342,X 

01820 LDA GP 

01830 STA $344,2 

01840 LDA #83F 

01850 STA $345,X 

01860 LDA LENLO 

01870 STA $348,X 

01880 LDA LENHI 

61890 STA $349,X 

01900 JSR $E456 

01910 3111331113311411111111111113111 
01920 1 CLOSE IOCB #1 i 
01930 31333124211112112113111211111111 
01940 LDA t$0C 

01950 STA $342,X 

01960 JSR $E456 

01970 11111111113142211111111111111111 


01980 1$ — FILE NAME FOR TABLE $ 
01990 3t11333111321111311111111111111111 
02000 FILE A3 “D: COMPACT. TBL" 
02010 HS 9B 

02020 BRK 

02050 .END 


MARCH MEE T IPC 
WILL BE HELD AT 
THE L.C.C. CAMPUS 
IN | 
I ORUM ZO 


FORUM is on the SOUTH 
Side of campus. The 
FORUM Blcig is near the 
middle of the south 
parking lot area. 


Wed. Har 9 at 7:30 pm 


IYPESEITING 
FROM YOUR COMPUTER 


ATARI OWNERS: If you have a modem, text editor, and com- 
munícatíons program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes “on line’ 
And it’s easy to encode your copy with the TON typesetting 
commands you need. 


COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 


Editing & Design Services 


InG- 
30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


Ente USIASTS 
3662 Vine Maple Dr Eugene OR 97405 


E 





Atari Computer Enthusiasts 


A.C.E. is an independent computer club and user's group with no connection to 
the Atari Company, a division of Warner Communication Company. We are a 
group interested in educating our members in the use of the Atari Computer and 
in giving the latest News, Reviews and Rumors. 

All our articles, reviews and programs come from you, our members. 

Our membership is world-wide; membership fees include the A.C.E. Newsletter. 
Dues are $10 a year for U.S., and $20 a year Overseas Airmail and include about 10 
issues a year of the ACE Newsletter. 

Subscription Dep't: 3662 Vine Maple Dr., Eugene, OR 97405 
President— Kirt Stockwell, 1810 Harris #139, Eugene, Or 97403 / 503-683-3005 
Vice Pres— Larry Gold, 1927 McLean Blvd., Eugene, Or 97405 / 503-686-1490 
Secretary— Charles Andrews, POB 1613, Eugene, Or 974401613 / 503-747-9892 
Librarian-Chuck and Jody Ross, 2222 Ironwood, Eugene, OR 97401 / 503-343-5545 
Editors— Mike Dunn, 3662 Vine Maple Dr., Eugene, Or 97405 / 503-344-6193 

Jim Bumpas, 4405 Dillard Rd., Eugene, Or 97405 / 503-484-9925 
E.R.A.S.E. (Educational SIG Editor)—Ali Erickson, 295 Foxtail Dr., Eugene, Or 
97405 / 503-687-1133 


Send a business-size SASE to the Ross’ for the new, updated ACE Library List!! 


Bulletin Board 

(503) 343-4352 
On line 24 hours a day, except for servicing and updating. Consists of a Tara 
equipped 48K Atari 400, 2 double-density disk drives, an Atari 825 printer, a Hayes 
SmartModem; running the ARMUDIC Bulletin Board software written by Frank L. 
Huband. See the Nov '82 issue for complete details. 


